program Project1;

var
  summ, i: integer;

begin
  i:=0;
  summ:=0;
  while true do
  begin
    inc(i, 4);
    if i > 50 then break;
    inc(summ, i);
  end;
  writeln('Summ: ', summ);
  readln;
end.