очень сделайте БЛОК - СХЕМЫ, ИМЕННО БЛОК СХЕМЫ
1.Вывести первые 25 натуральных чётных чисел
2. Вывести первые 15 натуральных чётных чисел кратных 5
3. Ввести четное число на клавиатуре. Делить на 2, пока оно не станет равно 1

Uses graphABC;beginsetwindowsize(600,500);setbrushcolor(clMedGray);Ellipse(320,30,490,400);Ellipse(120,30,300,400);setbrushcolor(clCream);Ellipse(335,40,480,380);Ellipse(140,40,280,380);setbrushcolor(clMedGray);Ellipse(100,430,500,130);setbrushcolor(clNavy);Ellipse(250,240,200,310);Ellipse(350,240,400,310);setbrushcolor(clwhite);Ellipse(240,270,220,300);Ellipse(360,270,380,300);
setbrushcolor(clblack);Ellipse(270,330,330,370);line(300,370,300,400);Arc(300,280,120,220,-40);
line(50,350,200,350);line(30,340,190,340);line(10,330,180,330);
line(410,330,570,330);line(400,340,560,340);line(390,350,550,350);
line(240,230,220,150);line(230,230,180,80);line(220,230,180,150);
line(360,230,380,150);line(370,230,430,80);line(380,230,430,150);
end.

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var g:=ArrRandom(31,0,40); g.Println;
  Writeln(g.IndexMax+1)
end.

Пример
38 34 15 11 2 33 12 39 12 0 32 23 7 18 22 31 0 6 19 15 24 37 26 12 7 9 20 25 21 18 20
8

// PascalABC.NET 3.2, сборка 1407 от 18.03.2017

begin
  var y:=ReadArrReal('2008:',12);
  var z:=ReadArrReal('2009:',12);
  var d:=y.Average-z.Average;
  if d>0 then Writeln('2008 теплее')
  else
    if d<0 then Writeln('2009 теплее')
    else Writeln('Оба года имеют одинаковую среднюю температуру')
end.

Пример
2008: -12.7 -10.4 -2.3 5.7 12.5 19.6 24.1 22.8 19.9 17.6 8.2 -7.4
2009: -15.2 -9.4 1.6 7.1 13.5 17.1 26.3 21.4 17.5 14.2 10.1 -12.6
2008 теплее