Как вывести функцию сравнения двух чисел в паскале с помощью mod и div не используя IF?
Напишите программу, которая считывает два целых положительных числа aa и bb и выводит наибольшее значение из них.

var a,b,a1,b1:word;
 begin
writeln(Введите два натуральных числа);
readln(a,b);
a1:=a div b;
 a1:=((a1+2) div (a1+1)) mod 2;
 b1:=(a1+1) mod 2;
writeln(Число , a*a1+b*b1, не меньше ,a*b1+b*a1);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.