Составте програму, которая вводит число с клавиатуры , и если оно отрицательное возводит его в квадрат

var a:integer; 
begin  
writeln('Введите целое число'); 
read(a); 
if a<0 then writeln('Квадрат ',a,'=',sqr(a)) 
else writeln('Число положительное'); 
end.