Помогите пожалуйста с программированием. Писать на паскаль

Question

1. Напишите программу которая запрашивает 2 числа сравним и выводит в виде а <b  а=б.  А>б
2.вести два числа a и b найти из них наибольшее наименьшее и чётное

user_319236753 · Accepted Answer

Для 1: program CompareNumbers;
var
a, b: Integer;
begin
Write('Введите первое число: ');
ReadLn(a);
Write('Введите второе число: ');
ReadLn(b);

if a < b then
WriteLn(a, ' < ', b)
else if a = b then
WriteLn(a, ' = ', b)
else
WriteLn(a, ' > ', b);
end.

Для 2:program FindNumbers;
var
a, b: Integer;
max, min: Integer;
begin
Write('Введите первое число: ');
ReadLn(a);
Write('Введите второе число: ');
ReadLn(b);

// Нахождение наибольшего и наименьшего
if a > b then
begin
max := a;
min := b;
end
else
begin
max := b;
min := a;
end;

// Проверка на четность
if (max mod 2 = 0) then
WriteLn('Наибольшее число: ', max, ' (четное)')
else
WriteLn('Наибольшее число: ', max, ' (нечетное)');

if (min mod 2 = 0) then
WriteLn('Наименьшее число: ', min, ' (четное)')
else
WriteLn('Наименьшее число: ', min, ' (нечетное)');
end.