Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program znacky;
- uses sysutils;
- type cifra=0..9;
- cele=0..1000;
- var j,e,cf:cifra;
- c:string;
- z,i,je,em:cele;
- begin
- readln(j,e);
- readln(z);
- readln(c);
- je:=0;
- em:=0;
- for i:=1 to z do
- begin
- if c[i]=' ' then delete(c,i,1);
- cf:=strtoint(c[i]);
- if j = cf then inc(je);
- if e = cf then inc(em);
- end;
- if em > je then writeln('Emma');
- if em < je then writeln('Jergus');
- if em = je then writeln('remiza');
- end.
Advertisement
Add Comment
Please, Sign In to add comment