Однажды ребята из одного класса посетили выставку цветов, где были представлены самые замысловатые букеты. Каждый ребенок запомнил точное количество цветов в одном букете. Несколько ребят могли запомнить количество цветов в одном и том же букете. Какое минимальное количество цветов могло использоваться для составления всех букетов? Формат ввода
В первой строке записано одно натуральное число N — количество ребят, которые посещали выставку (1 ≤ N ≤ 104).

В каждой из следующих N строк записано одно натуральное число ai — количество цветов в букете, которое запомнил один из учеников (1 ≤ ai ≤ 108).

Формат вывода
Одно целое число — минимальное количество цветов, которое могло использоваться для составления всех букетов.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

ввод x = 1, y = 3

x = 3 - 1= 2

y = 2 * 2 = 4

x = 2 * 4 + 2 = 10

y = 4 + 10/2 = 9

вывод x = 10, у = 9

ответ. в результате работы программы получим: х = 10, у = 9.

var s1,s2: string;

begin

  s1: ="параллелограмм";

  s2: ="гром";

  for i: = 1 to length(s1) do

  begin

      if i > length(s2) then s[i]='';

      if s1[i]< > s2[i] then s1[i]=s2[i];

    writeln(s1);

  end;

end.

чем не вариант, если правил нету)