PascalABC.NET
begin
var n := Abs(ReadInteger('Введи целое число:'));
if (n mod 10) mod 4 = 0 then
Println('Да')
else
Println('Нет')
end.
PascalABC.NET
begin
var n := Abs(ReadInteger('Введи целое число:'));
if (n mod 10) mod 4 = 0 then
Println('Да')
else
Println('Нет')
end.