Даны три числа. Возвести в квадрат те. из них. значение которых отрицательны

ввод а, б, с
начало
Если а<0, тогда а=а^2
Если б<0, тогда б=б^2
Если с<0, тогда с=с^2
Вывод (а, б, с)
конец

readln(a,b,c);
if a<0 then writeln(sqr(a)) else writeln(a);
if b<0 then writeln(sqr(b)) else writeln(b);
if c<0 then writeln(sqr(c)) else writeln(c);