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

Question

Юленька Байкалова · Accepted Answer

Я так полагаю это Pascal ABC ? 
 
Var a: real; 
begin 
writeln('введите а '); 
readln(a); 
if a<0 then a:=sqr(a); 
writeln(a); 
end.

Ссыв Агощ · Answer

надо язык программирования писать, хотя вряд ли кто то поможет, если бы написала.. . 
 
в общем 
введите х 
если х<0 то y=x*x 
напечатать y