Даны 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 я мог подзабыть или попутать с паскалем, так как сейчас программируюю на паскале, поэтому проверь, но алгоритм правильный