Выделите простые высказывания в составе предложения обозначьте их буквами во время летних каникул я не буду отдыхать в санатории поеду в деревню к бабушке​

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.

Переменные:
общий вид:
var <имя переменной> : <тип переменной>;

1. В имени переменной не может быть пробелов
2. Имя переменной не может начинаться с цифры
3. Нижнее подчеркивание разрешено

Константы:
общий вид:
const <имя константы> = <значение>;

Для константы действуют те же правила, что и на переменные.

Программа:
Общий вид:
<процедуры>
<функции>
<константы>
<переменные>
begin
<тело программы>
end.

Этот порядок нарушать нельзя, но некоторые моменты можно пропустить