ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var i,summ:integer;
    m : array[1..30] of integer;

begin
  summ := 0;
  writeln('type array of integer');
  for i:=1 to 30 do
    begin
      readln(m[i]);
    end;
  writeln('array is ready to work!');
  i := 2;
  while i <> 30 do
    begin
      summ := summ + (m[i]);
      inc(i);
    end;
  writeln('array:');
  for i:=1 to 30 do
    begin
      writeln(m[i]);
    end;
  writeln('summ: ' + inttostr(summ));
  readln;
end.