(* Bruno Vunderl

3.i

XV Gimnazija

SR DIVISION

CONTEST #1 *)

program ime;

var n,a,w,X,under,prvi,drugi,over,l,r,boja,punder,dunder:integer; c:char;

begin

prvi:=0;

drugi:=0; //inicijalizacija

//--------------------

FOR X:=1 TO 5 DO

BEGIN

under:=0;

readln(n);

readln(a);

readln(w);

readln(c); //upis varijabli

//------------------

l:=6;

r:=w-a+6;

if (c='H') or (c='S') then boja:=30;

if (c='C') or (c='D') then boja:=20;

if (c='T') then boja:=30;

under:=(w-l-a)*boja;

over:=(w-l)*boja; //odredjivanje dobitka

//--------------------

if n=1 then begin

prvi:=prvi+over;

punder:=under;

end;

if n=2 then begin

drugi:=drugi+over;

dunder:=under;

end; //odredjivanje bodova

//-------------------

writeln(prvi, ' ',punder, ' ',drugi, ' ',dunder);

END;

readln();

end.