Considere o seguinte código em Object Pascal.procedure TForm...

Considere o seguinte código em Object Pascal.

procedure TForm1.Button1Click(Sender: TObject);

var x:integer;

s:integer;

begin

x:=1;

s:=0;

while (x<=10)do

inc(x);

inc(s,x);

label1.Caption:=inttostr(s);

end;

Após a sua execução no ambiente de desenvolvimento Delphi, o componente label apresenta a saída: