Question

Программа Turbo Pascal
Задача1. Дано число х. Напечатать в порядке возрастания числа х,1+|х| и (1+х²).
Задание2. Опреднлить количество дней в году,в который вводит пользователь.
В високосном годе - 366 дней, тогда в обычном 365. Високосными годами являются все года деляющиеся нацело на 4 за исключением столетий,которые не делятся нацело на 400.
Алгоритм решения задачи:
1) Проверяем делится ли год на 4. Если нет,то год уже невисокосный.
2) Если год делится на 4,то проверяем делится ли он на 100. Если нет,то год однозначно високосный .
3) Если год делится на 100, но при этом не делится на 400, то год невисокосный.
------------------------------------------------------------------------------------
Мне нужно составить кратко,на подобии этого
Program
Var
Begin
Readln
If ... Then ...
Writeln
End.

Answer 1

var year: integer;
begin
write('Введите год: ');
read(year);
if (((year mod 4 <> 0) or (year mod 100 = 0)) and (year mod 400 <> 0)) then
writeln('Невисокосный')
else
writeln('Високосный');
end.