Даны числа x,y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные

Var
  x, y, z : real;
begin
  read (x, y, z);
  if (x > 0) then x := sqr (x);
  if (y > 0) then y := sqr (y);
  if (z > 0) then z := sqr (z);
  write (x, , y, , z);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.