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

[Tema]

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

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

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

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

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

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

[AlaRic]

Вот правильное решение:

Код

program new1;
uses wincrt;(у меня виндовый пас)
var a,b,c:real;
begin
writeln('введите 3 числа');
readln(a,b,c);
if a>=0  then
if b>=0  then
if c>=0  then
writeln('3 числа положительны')
else writeln('2 числа положительны')
else writeln('1 число положительно')
end.