Напишите программу дана последовательность 5, 9, 13, .поставьте программу для определение числа слагаемых, сумма которых не превышает 324.

Var a,s,k:integer;
begin
a:=5;
k:=0;
s:=0;
repeat
s:=s+a;
a:=a+4;
k:=k+1;
until s=324;
writeln (k)
end.

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

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
  Result:=Чис=1
end;

begin
  for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
  Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

Город - Население(1, 2 3 миллиона человек), Размер( 1000, 10000, 1000000,километров в квадрате), Расстояние до столицы (100, 1000, 1500 км)

Автомобиль - Пробег(10000, 50000, 100000км), максимальная скорость(80, 200, 300км/ч), год выпуска(1950, 2005, 2014г)

Компьютер - тактовая частота(1, 2, 3 Ггц), Объем оперативной памяти(4, 16, 64 ГБ), Объем памяти жесткого диска( 300, 600, 2000 ГБ)

Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3) 

Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)