Написать программу которая из 2х введённых с клавиатуры чисел положительное число устраивает а отрицательное возводит в квадрат

Var
a,b:integer;
begin
write(Введите A=);read(a);
write(Введите B=);readln(b);
if awriteln(a=,sqr(a))
else
writeln(a=,a);
if bwriteln(b=,sqr(b))
else
writeln(b=,b);
end.