Сто раз написать букву i- ** экране в строчку. Составить программу

Question

Сто раз написать букву i- на экране в строчку. Составить программу

Answer 1

Var i:integer;
begin
for i:= 1 to 100 do write ('i')
end.