Код IT
← Каталог

Pascal / Free Pascal — типовые программы — Полный каркас для контрольной (копировать в начало)

Фрагмент из «Pascal / Free Pascal — типовые программы»: Полный каркас для контрольной (копировать в начало).

pascal lab1140 embed URL статья в энциклопедии
Pascal main.pas 
program Solution;

const
  MAXN = 200000;

var
  n, i: integer;
  { ваши переменные }

begin
  { чтение }
  ReadLn(n);
  { решение }
  { вывод }
end.
program Solution;

const
  MAXN = 200000;

var
  n, i: integer;
  { ваши переменные }

begin
  { чтение }
  ReadLn(n);
  { решение }
  { вывод }
end.