В Паскале:Ввести три целых величины А, В и С . Если

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 gt; 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. / в коде ошибка (