В Паскале: Ввести три целых величины А, В и С . Если абсолютное значение их суммы > 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. / в коде ошибка (