У п'ятницю в 9 класі такі
уроки: 1 — історія, 2 — математика,
3 — географія, 4 — інформатика, 5 фізкультура. Розробіть
програму, за до якої визначається назва предмета за
його номером у розклад.​

program p1;

var n:Integer;

begin

Writeln('Введите номер урока: ');

Readln(n);

if n = 1 then Writeln('історія') else

if n = 2 then Writeln('математика') else

if n = 3 then Writeln('географія') else

if n = 4 then Writeln('інформатика') else

if n = 5 then Writeln('фізкультура');

end.

Объяснение: