GamerSK

Zenit - znacky

Oct 18th, 2017
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.47 KB | None | 0 0
  1. program znacky;
  2. uses sysutils;
  3. type cifra=0..9;
  4.      cele=0..1000;
  5. var j,e,cf:cifra;
  6.     c:string;
  7.     z,i,je,em:cele;
  8. begin
  9.   readln(j,e);
  10.   readln(z);
  11.   readln(c);
  12.   je:=0;
  13.   em:=0;
  14.   for i:=1 to z do
  15.     begin
  16.       if c[i]=' ' then delete(c,i,1);
  17.       cf:=strtoint(c[i]);
  18.       if j = cf then inc(je);
  19.       if e = cf then inc(em);
  20.     end;
  21.   if em > je then writeln('Emma');
  22.   if em < je then writeln('Jergus');
  23.   if em = je then writeln('remiza');
  24. end.
Advertisement
Add Comment
Please, Sign In to add comment