Даны два числа. если хотя бы одно из них кратно 4, то второе увеличить на 3. это в паскале. в принципе все понятно, но у меня не получается написать, что хотя бы одно из них кратно. , 21 .

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.