Помогите сделать блок-схему для этой задачи!!!

Гаяна в категроии Информатика, вопрос открыт 07.03.2018 в 12:15

Заданы координаты двух точек. Определить, лежат ли они на одной окружности с центром в начале координат. Результат присвоить символьной переменной, задачу решить для точек с координатами (10;2) , (2;0) , (1;3) , (2:2).
Program crt;
var x1,y1,x2,y2 : real;
begin
writeln('x1=');readln(x1);
writeln('y1=');readln(y1);
writeln('x2=');readln(x2);
writeln('y2=');readln(y2);
if (sqrt(x1*x1+y1*y1) = sqrt(x2*x2+y2*y2)) then
writeln('Лежат')
else
writeln('Не лежат');
end.