Даны 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

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