Найдите все ошибки в программе. Перепишите ее в правильном виде. Постройте блок-схему.

program zadacna;

var a: integer;

begin

writeln('Введите число а');

readln(a);

if a >= 0 then a := 18 else a := a - 6;

writeln(a);

end.