Question

Ввести с клавиатуры два числа. Большее число проверить на краткость 5. if(M%5==0):
СКАЖИТЕ ПЖ

Answer 1

var a,b:Integer;
begin
Read(a,b);
if (b > a) then
a:= b;
WriteLn(a mod 5=0);
end.