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

vara,d,f,g: integer;beginreadln(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.