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

[Asya_Teddy]

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

[Mad_Cat]

randomize;
next:=-1;
prev:=-2;
while prev<>next do begin
prev:=next;
next:=random(25)+1;
for i:=1 to next do
write('#');
writeln;
end;

[Asya_Teddy]

Спасибо, но паскаль во второй строчке находит ошибку и пишет, что next- неизвестное имя

[MisterDie]

Сообщение от Asya_Teddy

next- неизвестное имя

А кто будет за Вас объявлять переменные?

[Asya_Teddy]

Простите, но вы не могли бы мне программу полностью написать? Я в программировании вообще ничего не понимаю, а в пятницу зачет по этому нужно сдавать

[MisterDie]

var prev,next,i:shortint;
begin
randomize;
next:=-1;
prev:=-2;
while prev<>next do begin
prev:=next;
next:=random(25)+1;
for i:=1 to next do
write('#');
writeln;
end;
end.

[Asya_Teddy]

Спасибо большое, зачет сдала на пять