You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

22 lines
284 B

let
var a : Integer;
var b : Integer;
var c : Integer
in
begin
put('1');
puteol();
a := 0;
while a < 5000 do
begin
b := 0;
while b < 3000 do
begin
c := c + a;
c := c / (1 + b);
b := b + 1;
end;
a := a + 1;
end;
putint(c);
end