//fpc 3.0.0

program P12;
var m, n : integer;
    k: real;
    procedure P(var x:integer; y:integer; var z:real);
        function f(h:integer):integer;
            begin
            f:=sqr(h)+2;
            end;
     begin
     x:=f(x)+y;
     y:=x+f(2);
     z:=y mod x;
     writeln(x,'',y,'',z:0:0);
     end;
begin
    n:=4;
    m:=1;
    k:=2;
    P(m,n,k);
    writeln(m,'',n,'',k:0:0);
    P(m,n,k);
    writeln(m,'',n,'',k:0:0);

end.