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