Даны 2 действительных числа.Возвести в квадрат те из них,значение которых...

Question

Даны 2 действительных числа.Возвести в квадрат те из них,значение которых неотрицательны.Числа вводятся пользователям с клавиатуры.Результат работы программы вводится на экран

Answer 1

Var
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then  begin f:=sqr(a); writeln(f); end;
if d>0 then  begin g:=sqr(d); writeln(g); end;
end.