сделать блок схему к данной программе:
var
X1, Y1, X2, Y2, distance: Real;
begin

write('Введите X1 : '); readln(X1);
write('Введите Y1 : '); readln(Y1);
write('Введите X2 : '); readln(X2);
write('Введите Y2 : '); readln(Y2);

distance := Sqrt(Sqr(X2 - X1) + Sqr(Y2 - Y1));
writeln('Расстояние равно : ' , distance:2:2);

readln;
end.

пухля13    1   16.05.2020 15:18    2