Найти ошибку program name; uses crt; var a: integer; begin writeln ('введите время='); readln (a); if (a)then; begin writeln ('ночь'); end; /// if a=3 then begin writeln ('утро'); readln (d); if a= 12 then begin writeln ('день'); end; if a=16 then begin writeln ('вечер'); /// if a=21 then begin writeln ('ночь'); /// end; end;
2)конец программы обозначается End., а не End;