Begin
writeln('Привет, начинающий программист, тебя приветствует Pascal');
end.
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Расписание можно составить двумя способами:
1) первый урок — математика, второй — литература, третий —
история;
2) первый урок — история, второй — математика, третий —
литература.
1 номер -C.
2номер -А.
3номер -В