program Nikitenko;
var
p,q,r:integer;
a,b,c,M,N,L:real;
begin
    writeln ('Hello stranger!');
    writeln ('Enter three integer numbers / Vvedite tri celih chisla:');
    writeln ('For example / Naprimer 135');
    write ('p'); readln (p);
    write ('q'); readln (q);
    write ('r'); readln (r);
    writeln ();
    writeln ('Enter three real numbers / Vvedite tri veshchestvennih chisla:');
    writeln ('For example / Naprimer 13.5');
    writeln();
    write ('a'); readln (a);
    write ('b'); readln (b);
    write ('c'); readln (c);
    writeln();
    M := ((0.8 / p) + (1 / r) + (0.5 / q));
    L := ((a / q) * p + (r / 3) * c + (q * b));
    N := (100 * ((p * q / r) + (r / 3) * c + (q * b)));
    Write ('M = '); write(M:0:1); write(', N = '); write(N:0:1); write(', L = '); write(L:0:5);
end.