Здравствуйте, помогите пожалуйста найти ошибку 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)...

Здравствуйте, помогите пожалуйста найти ошибку 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;