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

[Tema]

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

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

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

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

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

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

[mj]

4.

Код

program P4;
var  
 d1, d2, d3, d: Integer;
begin  
 writeln('введите три числа');    
 readln(d1);
 readln(d2);
 readln(d3);
 d := byte(d1>=0)+byte(d2>=0)+byte(d3>=0);
 writeln('Ответ ', d);
end.

PS: Во всех задачах можно использовать любые типы числовых данных (вместо предложенных мною)...