var a, k : integer;

  begin

  a := 40;

    for k := 2 to 5 do

    a := a – k;

  write(a);

end.