[eXplorer]

Обеспечить вывод в компонент TMemo всех целых чисел, попадающих в интервал от n1 до n2

Код:

var
n1,n2,i:integer;
begin
n2:=89; //n2
i:=0; //счётчик чисел
for n1:=2 to n2 do begin //цикл
memo1.Text:=memo1.Text+inttostr(n1); //вывод в мэмо
i:=i+1;
end;
showmessage(inttostr(i));
end;