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

[Tema]

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

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

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

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

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

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

[mj]

3.

Код

program P3;
var  
 d1, d2, d3, d: Integer;
begin  
 writeln('введите три числа');  
 readln(d1);
 readln(d2);
 readln(d3);
 if d2<d1 then
 begin
   d := d1;
   d1 := d2;
   d2 := d;
 end;
 if d3<d1 then
 begin
   d := d1;
   d1 := d3;
   d3 := d;
 end;
 if d3<d2 then
 begin
   d := d2;
   d2 := d3;
   d3 := d;
 end;
 d := d1+d3;
 writeln('Ответ ', d);
end.

----- -----
3. способ сложнее

Код

program P3;
var  
 a, b, c, p, m, u: Integer;
begin  
 writeln('введите три числа');  
 readln( a );
 readln( B );
 readln( c );
 p := (a+b+abs( a-B )) div 2;
 m := (a+b-abs( a-B )) div 2;
 u := (c*2+p+abs(p-c)+m-abs(m-c)) div 2;
 writeln('Ответ ', u);
end.