Дано случайное число х ,вывести это число на экран .Если оно кратно 2 и не кратно 3,то напечатать "Да",в противном случае напечатать"Нет"

var

 r: Integer;

begin

   Randomize;

   r := Random (100);

   if (r mod 2 = 0) and (r mod 3 <> 0) then

     WriteLn ('Да, число ' + IntToStr (r) + ' кратно 2 и не кратно 3')

   else

     WriteLn ('Нет, для числа ' + IntToStr (r) + ' условие не выполняется');

end;

(решение на Паскале)

program chislo;

var x:longint;

begin

readln(x);

writeln(x);

if (x mod 2 =0)and (x mod 3<>0) then write ('Да') else write ('Нет');

end.