Написать блок схему для этой программы
var
x1, y1, x2, y2, x3, y3, firsts, seconds, thirds: real;
begin
readln(x1,y1,x2,y2,x3,y3);
firsts : = sqrt(x1*x1+y1*y1);
seconds : = sqrt(x2*x2+y2*y2);
thirds : = sqrt(x3*x3+y3*y3);
if (firsts> seconds) then
if (firsts> thirds) then
writeln(x1,' ',y1)
else
writeln(x3,' ',y3)
else
if (seconds> thirds) then
writeln(x2,' ',y2)
else
writeln(x3,' ',y3);
end.

Диманник2006    1   07.11.2019 00:38    2