сколько ошибок допущено в программе Program zadacha;Var a: integer;begin

Сколько ошибок допущено в программке
Program zadacha;
Var a: integer;
begin
writeln('введите число а')
readln(a);
if agt;=0 then
if a=0 then a:=18 else a:=a+1;
else a:=a-6;
writeln (a);
readln
End.


Найдите все оплошности и исправьте их. Опишите их на природном языке либо с подмогою блок-схемы метод преображения исходных данных, применяемый в данной программе.