Декодируйте тексты с кодовой таблицы кои-8 240 207 208 217 212 203 193 32 208 217 212 203 193 46

вот текст: попытка не пытка.

var

  a, b, c, d, t1, t2: longint;

begin

  write('a = '); readln(a);

  write('b = '); readln(b);

  write('c = '); readln(c);

  write('d = '); readln(d);

  if a < b then

      t1 : = a

  else

      t1 : = b;

  if c < d then

      t2 : = c

  else

      t2 : = d;

  if t1 < t2 then

      writeln('min = ', t1)

  else

      writeln('min = ', t2);

  readln;

end.

 

имхо так:

 

program solution; uses crt; var sec, num, n1, i : longint; beginclrscr; readln(sec); num : = 1; n1 : = 0; repeat              for i : = 1 to num do                              begin                              write(num, ' ');                               n1 : = n1 + 1;                               if n1 > = sec then break;                               end;               num : = num + 1; until n1 > = sec; end.