ЗАДАЧА 2
program Kirito1131_Menu;
var punkt :integer;
Begin
WriteLn('Выберите день недели (от 1 до 7): ');
Read(punkt);
if punkt=1 then WriteLn('Понедельник: Информатика, Англиский язык, Геометрия, История, Общество, Русский язык');
if punkt=2 then WriteLn('Вторник: География, Физкультура, Литература, Химия, История, Англиский язык');
if punkt=3 then WriteLn('Среда: Геометрия, Физика, Химия, Алгебра, Труд, Физкультура');
if punkt=4 then WriteLn('Четверг: Информатика, Англиский язык, Литература, Алгебра, Биология, ИЗО');
if punkt=5 then WriteLn('Пятница: География, Русский язык, Алгебра, Биология, Литература, Физика');
End.
ЗАДАЧА 1
program Kirito1131;
var n, H, s :real;
Begin WriteLn('Введите значение признака: ');
Read(n);
WriteLn('Введите параметр: ');
Read(H);
if n=1 then s:=pi*H*H;
if n=2 then s:=pi*H*H/4;
if n=3 then s:=H*H/4*pi;
WriteLn('Площадь равна: ', s);
End.