Напишите программы в паскаль для этих трех заданий

1.

var x: integer;

begin

   randomize;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln(x);

end.

2.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   x := x - x mod 10;

   writeln('Случайное число:', x);

   while x > 0 do

       begin

       _sum := _sum + x mod 10;

       x := x div 10;

       end;

   if _sum mod 3 = 0 then

       writeln('Сумма цифр кратна трём!')

   else

       writeln('Сумма цифр не кратна трём!');

end.

3.

var x, _sum: integer;

begin

   randomize;

   _sum := 0;

   x := random(9000) + 1000;

   writeln('Случайное число: ', x);

   write('Если записать его в обратном порядке: ');

   while x > 0 do

       begin

       write(x mod 10);

       x := x div 10;

       end;

end.