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

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