Чему будет равно r после выполнения программы:
var a:integer;
begin
a:=25
if a mod 4=0 then write ('число кратно 4') else write ('число не кратно 4')
end.