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


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

после writeln() должно стоять ( ;)

и в конце не нужна readln