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

[Tema]

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

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

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

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

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

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

[mj]

Пока держи 4:

program new1;
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.

Это неверное решение задачи...
И ещё: перед else нельзя ставить точку с запятой.