Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Помогите, пожалуйста, создать программу распорядка дня в Паскале

Ответ оставил Гость

//Pascal ABC.NET v3.0 сборка 1111

Var
 s:string;
begin;
 repeat
  writeln(Уже утро?);
  readln(s);
  if s=Нет then writeln(Продолжать спать);
 until s=Да;
 writeln(Проснуться);
 writeln(Завтрак);
 writeln(Школа);
 writeln(Ты голоден?);
 readln(s);
 if s=Да then writeln(Обедать);
 writeln(Д.з.);
 writeln(Свободное время);
 writeln(Ты голоден?);
 readln(s);
 if s=Да then writeln(Ужинать);
 writeln(Спать);
end.