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.