program petriukas;
var a : integer;
begin
  WriteLn('Iveskite keik pinigu turėjo Petriukas');
  read(a);
  writeLn(a div 2)+(treciadieni puse pasiskolintos sumos grazino)+(ketvirtadieni Petriukas dar gavo 0.3 karto daugiau litu nei 100 diena.);
  Readln;
  Readln;
end.