delitelnost

program delitelnost_tromi_a_styrmi;
uses crt;
var A:integer;
begin
    clrscr;
    writeln('Zadaj hodnotu A');
    readln(A);
    if (A mod 3 = 0) and (A mod 4 = 0) then
    writeln ('Cislo',A,'je delitelne tromi aj styrmi')
    else
    writeln (A,'nie je delitelne tromi a styrmi');
    readln;
end.