52. Практичне завдання

procedure TForm1.Button1Click(Sender: TObject);

var

i,n: integer;

begin

n:=1;

For i:=1 to 4 do

n:=n*i;

next;

ShowMessage ('n = ' + IntToStr(n));

end;