перевести эту программу из паскаля в кумир Var

  x, y: real;

begin

  writeln('Введите координаты точки');

  readln(x, y);

  write('Точка с координатами (', x, ', ', y, ') ');

  if sqr(x) + sqr(y) > 1 then write('не ');

  writeln('принадлежит области, ограниченной окружностью единичного радиуса')

end.

Maxi2007    2   09.06.2020 15:57    3