Напишите ,пожалуйста, 3 алгоритма на языке Паскаль с помощью оператора case

1) Число уроков (можно поправить список строк оператора case, если нужно чтобы число уроков было как у вас в классе):

var

d: integer;

begin

Write('введите номер дня недели: ');

read(d);

case d of

 1,3,5: Write('6 уроков');

 2,4: Write('5 уроков');

 6,7: Write('нет уроков');

 else Write('неверный номер дня недели');

end;

end.

2) Последняя цифра квадрата числа:

var

n: integer;

begin

Write('введите целое число: ');

read(n);

Write('последняя цифра квадрата этого числа равна: ');

case n mod 10 of

 0: Write(0);

 1,9: Write(1);

 2,8: Write(4);

 3,7: Write(9);

 4,6: Write(6);

 5: Write(5);

end;

end.

3) Дней в месяце (високосные года сделал через 4 года. правда это только в первом приближении. теоретически, там сложнее. а если в реальности- то ещё сложнее) :

var

g,m: integer;

begin

Write('введите год: ');

read(g);

Write('введите номер месяца: ');

read(m);

Write('в этом месяце число дней равно: ');

case m of

 1,3,5,7,8,10,12: Write(31);

 4,6,9,11: Write(30);

 2: if g mod 4 = 0 then Write(29) else Write(28);

end;

end.