var
i, s: integer;

begin
i := 2;
s := 2;
while i < 100 do
begin
i := i + 2;
s := s + i;
end;
write('Sum: ', s);
end.

13895702084657812570    1   13.03.2021 08:18    0