Помогите создать блок схему

[Грек-Илья]

По коду
procedure TForm1.btn1Click(Sender: TObject);
var n,i,a,s:integer;
begin
n:=strtoint(edt1.text);
mmo2.lines.clear;
for i:=1 to n do
begin
s:=(strtoint(mmo1.lines.strings[i-1])
-strtoint(mmo1.lines.strings[i]))
*strtoint(mmo1.lines.strings[i]);
mmo2.lines.add('s'+inttostr(i)+'= '+inttostr(s));
end;
end;

[Вадим Мошев]

Чем конкретно помочь?

[Bugrimov]

Одна процедура, один цикл... В чем затруднение?