Program delit;
uses crt;
var
x:word;
begin
clrscr;
writeln('Zadaj cislo: ');
readln(x);
if (x mod 2) = 0 then
writeln('Je delitelne 2');
if (x mod 3) = 0 then
writeln('Je delitelne 3');
if (x mod 7) = 0 then
writeln('Je delitelne 7');
readln;
end.