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

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.