Question

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

Answer 1

У вас нет переменной r, на экране будет:
число не кратно 4