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

Question

Гость

Ответ(ы) на вопрос:

Accepted Answer

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