Помогите пожалуйста срочно
В паскале сделать программу 3 задание 

// PascalABC.NET 3.0, сборка 1076var  c:char;  s:string;begin  s:='';  for c:='А' to 'Я' do begin s:=s+c; Writeln(s) endend.    Тестовое решение:ААБАБВАБВГАБВГДАБВГДЕАБВГДЕЖАБВГДЕЖЗАБВГДЕЖЗИАБВГДЕЖЗИЙАБВГДЕЖЗИЙКАБВГДЕЖЗИЙКЛАБВГДЕЖЗИЙКЛМАБВГДЕЖЗИЙКЛМНАБВГДЕЖЗИЙКЛМНОАБВГДЕЖЗИЙКЛМНОПАБВГДЕЖЗИЙКЛМНОПРАБВГДЕЖЗИЙКЛМНОПРСАБВГДЕЖЗИЙКЛМНОПРСТАБВГДЕЖЗИЙКЛМНОПРСТУАБВГДЕЖЗИЙКЛМНОПРСТУФАБВГДЕЖЗИЙКЛМНОПРСТУФХАБВГДЕЖЗИЙКЛМНОПРСТУФХЦАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮАБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ

//Pascal ABC.NET Версия 2.2 Сборка 790const alf:string='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';var i:integer;s:string;begin;for i:=1 to length(alf) dobegin;s:=s+alf[i];writeln(s);end;end.