Даны 3 числа a b c возвести в квадрат тока отрицательные

Если тебе нужен квадрат каждого отрицательного числа то пробуй так:
a,b,c:real
input a,b,c
if alt;0 then 
a=a*a
end if
if blt;0 then
b=b*b
end if
if clt;0 then
c=c*c
end if
print a,b,c
я мог подзабыть либо соблазнять с паскалем, так как на данный момент программируюю на паскале, поэтому проверь, но метод верный