Var a: string; al: word; i: integer;
begin
writeln ('введите число');
readln (i);
for i: =1 to length(a) do begin
write (chr (al));
end;
end.
что не так? пишут, что параметр цикла for должен описываться в заголовке цикла

vikatopcheg    2   05.11.2019 14:16    1