Выводить на экран строку, состоящую из случайного (до 25)...

[Asya_Teddy]

Выводить на экран строку, состоящую из случайного (до 25) числа повторений заданного символа. Вывод окончить при повторении подряд двух строк с одинаковым числом символов.

[Хыиуду]

Код: Выделить всё

i:=0;
repeat
    j:=i;
    i:=random(25)+1;
    for c:=1 to i do write('a');
    writeln;
until i=j;    

[Asya_Teddy]

спасибо, но не могли бы вы всю программу полностью написать?

[Хыиуду]

Мог бы, но не хочу. Надо и своей головой думать.