Написать программу, которая проверяет, делятся ли на 3 (2,4) целое число, введенное с клавиатуры

program zz1;

var n:integer; / / задаем переменную целого типа

begin

write (' введите целое число ');

read (n); / / вводим с клавиатуры число

if n mod 3 = 0 then writeln (' введенное число на 3 делится ') else writeln (' введенное число на 3 не делится ');

if n mod 2 = 0 then writeln (' введенное число на 2 делится ') else writeln (' введенное число на 2 не делится ');

if n mod 4 = 0 then writeln (' введенное число на 4 делится ') else writeln (' введенное число на 4 не делится ');

end.