var
i, res: integer;
begin
i := 10;
while i < 100 do
res := res + i;
i := i + 1;
end;
writeln(res);
end.
var
i, res: integer;
begin
i := 10;
while i < 100 do
begin
res := res + i;
i := i + 1;
end;
writeln(res);
end.