Var a, b: integer;
begin
write('Первое число = ');
readln(a);
write('Второе число = ');
readln(b);
if a > b then
writeln(a + b)
else
writeln(a * b);
end.
Задания решаются по таблице истинности
1 - true
0 - false
А)11 все цифры однозначные
б)3 все цифры однозначные
в) 36 все цифры оканчиваются на 0,делятся на 10
г)45 все цифры оканчиваются на 2
д)37 ,десяток начинается с 2
е)нет 4