помогите умоляю Опции

[Tema]

помогите кто знает я в отчаяньи
Всего 4 задачи: (Операция целочисленного деления)

Написать программу которая по номеру дня недели выдаёт количество уроков в этот день.

Определить равен ли квадрат заданного трёхзначного числа,кубу суммы цифр этого числа.

Написать программу нахождении суммы большего и меньшего из 3 чисел(а,в,с)

Подсчитать количество положительных чисел среди чисел(а,в,с)

Вот прошу помоги просто неккому обратиться больше 8-)

[mj]

1.

Код

program P1;
var
 d, u :Byte;
begin
 writeln('введите день недели (1..7)');
 readln(d);
 case d of
   1: u := 4;
   2: u := 2;
   3: u := 3;
   4: u := 3;
   5: u := 4;
   6: u := 2;
   7: u := 0;
   else u := 255;
 end;
 if u=255 then writeln('День недели введён неверно')
 else writeln('Сегодня уроков: ', u);
end.