Чему будет равно r после выполнения программы: var a:integer; begin a:=25 if a mod 4=0...

Question

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

Answer 1

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