Дано случайное число х ,вывести это число на экран .Если оно

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

program chislo;

var x:longint;

begin

readln(x);

writeln(x);

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

end.

var

 r: Integer;

begin

   Randomize;

   r := Random (100);

   if (r mod 2 = 0) and (r mod 3 lt;gt; 0) then

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

   else

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

end;