program gd;
uses crt;
 
var N:array[1..10] of string;
    G:array[1..10] of real;
    R:array[1..10] of integer;
 
    i:integer;
 
begin
for i:=1 to 10 do
    begin write('N[',i,']='); readln(N[i]); end;
 
for i:=1 to 10 do
    begin write('G[',i,']='); readln(G[i]); end;
 
for i:=1 to 10 do
    begin write('R[',i,']='); readln(R[i]); end;
 
clrscr;writeln('Rezult:');
for i:=1 to 10 do
    begin
    if ((G[i]/R[i])>0.3) and ((G[i]/R[i])<0.5) then
    writeln(N[i],' * ',G[i]/R[i]:0:2);
    end;
 
 
readln;
end.