Edit1.text : = 'start! ' ;
for i: =1 to 2 do
begin
edit1.text : = edit1.text + '--';
for j: =1 to 2 do
begin
edit1.text : = edit1.text + 's';
for k: =1 to 3 do
edit1.text : = edit1.text + '> ';
end;
end;
end;
etid1.text : = edit1.text + 'end! ';
що виведеться на
