в FreePascale вывести числа в виде таблицы используя команду цикла
5
55
555

var a:integer;    b,c:string;beginb:='*';c:='';for a:=1 to 3 do begin  c:=c+b;  writeln(c);end;end.