Надо найти ошибку и устранить. определить правильно ли определяется факториал 13-ти.

[wymaxep]

помогите пожалуйста.

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
x:Extended ;
begin
x:=1;
for i := 2 to 13 do
x:=x*1;
write ('13!=',x,'. ok? ');
end;

[eoln]

for i := 2 to 13 do
x:=x*i;
showmessage ('13!='+floattostr(x)+'. ok? ');

[wymaxep]

все. получилось. спасибо огромное))