Question

Помогите пожалуйста
Задача №1
Даны два целых числа. Программа должна вывести число 1, еслипервое число больше второго, число 2, если второе больше первого или число 0,если они равны.Входные данныеВводятся два целых числа.Выходные данныеВыведите ответ на задачу.ПримечаниеЭту задачу желательно решить с использованием каскадных инструкций if...elif... else.Примерывходные данные12выходные данные2
Задача №2
Даны три целых числа. Найдите наибольшее из них (программадолжна вывести ровно одно целое число).Используйте ровно два оператора сравнения (>, <, >=, <=) для решения этойзадачи. Использовать функции max и min нельзя.Входные данныеВводится три целых числа.Выходные данныеВыведите ответ на задачу.Примерывходные данные123выходные данные3
Задача №3
 Дано натуральное число. Требуется определить, является ли год сданным номером високосным. Если год является високосным, то выведите YES,иначе выведите NO. Напомним, что в соответствии с григорианским календарем, год является високосным, если его номер кратен 4, но не кратен 100, а также если онкратен 400Входные данныеВводится одно натуральное число.Выходные данныеВыведите ответ на задачу.Примерывходные данные100выходные данныеNO

Answer 1

Вторая:
Program zz;var a,b,c,d:integer;beginwriteln('Введите A:',a);readln(a);writeln('Введите B:',b);readln(b);writeln('Введите C:',c);readln(c);if a >= b then        d := b    else        d := b;    if c > d then        d := c;writeln ('Максимальное из них: ', d);end.