Напишите ,пожалуйста, 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.