Для формирования билетов к экзамену было составлено 8 . какое наибольшее количество билетов можно составить из этих , если известно, что каждый билет должен содержать две , а в двух различных билетах может встречаться не более одной повторяющейся ?

всего можно составить 28 билетов:

12 13 14 15 16 17 18 (7 штук)

23 24 25 26 27 28 (6 штук)

34 35 36 37 38 (5 штук)

45 46 47 48 (4 штуки)

56 57 58 (3 штуки)

67 68(2 штуки)

78 (1 билет)

Var   stack : array [1..1000] of double;   op1, op2 : double;   i : integer;   c : char; begin   i : = 0;   while not eoln do   begin     read (c);     if c in ['0'..'9'] then     begin       inc (i);       stack[i] : = ord (c) - ord ('0');     end     else if c < > ' ' then     begin       if i < 2 then       begin         writeln ('error! '); halt;       end;       op2 : = stack[i];       dec (i);       op1 : = stack[i];       case c of         '+' : stack[i] : = op1 + op2;         '-' : stack[i] : = op1 - op2;         '*' : stack[i] : = op1 * op2;         '/' : stack[i] : = op1 / op2;       end;     end;   end;   if i < > 1 then     writeln ('error! ')   else     writeln (stack[i]); end.

Так как по условию нам не нужно выводить на экран считанную информацию с клавиатуры,то вывод переменной нам будет необходим только в случае обращения по имени. var a: string; begin writeln('как тебя зовут ? '); readln(a); writeln(' ',a,' ! '); writeln('сколько тебе лет? '); readln(); writeln('какой у тебя любимый предмет в школе? '); readln(); writeln('какая у тебя любимая книга'); readln(); end. если же,необходимо запомнить всю полученную информацию,тогда используем этот вариант: var a,b,c,d: string; begin writeln('как тебя зовут ? '); readln(a); writeln(' ',a,' ! '); writeln('сколько тебе лет? '); readln(b); writeln('какой у тебя любимый предмет в школе ? '); readln(c); writeln('какая у тебя любимая книга ? '); readln(d); write ('значит тебя зовут ',a ,'. тебе ',b,'. твой любимый предмет - ',c,'. и твоя любимая книга -  ',d); readln(); end.