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

vara,b:integer;beginwrite('Введите A=');read(a);write('Введите B=');readln(b);if a<0 thenwriteln('a=',sqr(a))elsewriteln('a=',a);if b<0 thenwriteln('b=',sqr(b))elsewriteln('b=',b);end.