Ввести с клавиатуры два числа. Большее число проверить на краткость 5. if(M%5==0): СКАЖИТЕ ПЖ
Var a,b:Integer; begin Read(a,b); if (b > a) then a:= b; WriteLn(a mod 5=0); end.