Впрограмме паскаль. выведите такой ряд символов: ааббввггддеежж…яя. вложенные циклы не использовать.

Var i: integer; begin for i: =192 to 223 do write(chr(i),chr(i+32)); end.

// pascalabc.net 3.3, сборка 1576 от 16.11.2017// внимание! если программа не работает, обновите версию! begin  var s: =readlnstring('введите имя и фамилию: ');   var g: =readlnstring('введите год рождения: ');   var n: =readinteger('сколько раз повторить вывод? ');   loop n do writeln(s,newline,g)end.примервведите имя и фамилию: иванов сергейвведите год рождения: 24.06.2001сколько раз повторить вывод? 3иванов сергей24.06.2001иванов сергей24.06.2001иванов сергей24.06.2001

Var a, b: array[1..10000] of integer; n, count, i, ianswer, cnt: integer; begin readln(n); //количество пар for i: = 1 to n do begin read(a[i]); //читаем первый катет readln(b[i]); //читаем второй катет end; ianswer: = 1; count: = 1; for i: = 2 to n do begin   if a[i]*b[i] = a[ianswer]*b[ianswer] then inc(count);   if a[i]*b[i] >   a[ianswer]*b[ianswer] then   begin   count: = 1;   ianswer: =i;   end; end; if count = 1 then begin writeln('треугольник с наибольшей площадью равной ', a[ianswer]*b[ianswer], 'и, имеет размеры катетов ', a[ianswer], ' и ', b[ianswer], '. номер треуголника: ', ianswer); halt; end; writeln('всего ', count, ' треугольника(-ов) с максимальной площадью равной ', a[ianswer]*b[ianswer]); cnt: = 1; for i: = 1 to n do if a[ianswer]*b[ianswer] = a[i] * b[i] then begin writeln(cnt, '-й треугольник имеет катеты ',a[i], ' и ', b[i], '. номер этого треугольника: ', i); inc(cnt); end; end.