Впаскале: ввести три целых величины а, в и с . если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.

Var a,b,c,d:integer;begind:=0;a:=0;b:=0;c:=0;beginreadln(a);readln(b);readln(c);d:=a+b+c;if d > 3 thenbeginwriteln('A',a-1) ;writeln('B',b-1);writeln('C',c-1);end;elsea:=a*a;b:=b*b;c:=c*c;end;writeln('A',a) ;writeln('B',b);writeln('C',c);end. / в коде ошибка (