Даны два числа. Если желая бы одно из их кратно 4,

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (a, b) := ReadInteger2;

 if (a mod 4 = 0) or (b mod 4 = 0) then b += 3;

 Println(a, b)

end.

Числа можно ввести оба через пробел либо по одному

Чтоб проверить, кратно ли число четырём, необходимо написать такую проверку:

if (х mod 4 = 0) then...

Это означает: "если остаток от разделения числа х на 4 равен нулю, то..."

Программка:

Program P;

var

 x,y: integer;

begin

 var s:='**** -=Alphaeus=- ****';  

 for var k:=1 to 22 do begin write(s[k]); sleep(47) end;

 writeln;writeln;

 writeln('Введите числа:');

 write('X = '); readln(x);

 write('Y = '); readln(y);

 if (x mod 4=0) or (y mod 4=0) then y:=y+3;  

 writeln('Итог:');

 writeln('X = ',x);

 writeln('Y = ',y);

end.