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.
