Сколько ошибок допущено в программе 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. Найдите все ошибки и исправьте их. Опишите их на естественном языке или с помощью блок-схемы алгоритм преобразования исходных данных, используемый в данной программе.