Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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