Здравствуйте, помогите пожалуйста найти ошибку
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;
1)1ый условный оператор без условия
2)конец программы обозначается End., а не End;
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
