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

Если тебе нужен квадрат каждого отрицательного числа то попробуй так: a,b,c: realinput a,b,cif a<0 then a=a*aend ifif b<0 thenb=b*bend ifif c<0 thenc=c*cend ifprint a,b,cя мог подзабыть или попутать с паскалем, так как сейчас программируюю на паскале, поэтому проверь, но алгоритм правильный