В строковую переменную St занесена последовательность чисел, разделенных запятыми. Определить, образуют ли эти числа арифметическую прогрессию (например: 2,4,6,8,10,12; 13,10,7,4,1).

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.

один, два, три, четыре, пять

12345

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe

var i: integer;

begin

  for i: =1 to 1000 do

      if i mod 2 = 1 then writeln(i*i*i);

end.