В FreePascale вывести числа в виде таблицы используя команду цикла
5
55
555
Var a:integer;
b,c:string;
begin
b:=*;
c:=;
for a:=1 to 3 do begin
c:=c+b;
writeln(c);
end;
end.
Оцени ответ
