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!'; що виведеться на екран!!
Строка "Start!----SS>>>SS>>>END!" будет выведена на экран.