Question

в паскаль даны 2 числа. возвести их в квадрат , если они не отрицательны. отрицательные числа оставить без имени ​

Answer 1

===== PascalABc.NET =====

begin

 var (a, b):= ReadReal2('Введи два числа:');

 if a >= 0 then a := a * a;

 if b >= 0 then b := b * b;

 Println(a, b)

end.