fork(2) download
  1. var s1,s2,s3,s4,s5,s6,s7,s8:string;
  2. i,l,code:integer;
  3. begin
  4. read(s1,s2,s3,s4);
  5. s5:='';
  6. for i:=1 to length(s1) do begin
  7. val (s1[i],l,code);
  8. if code=0 then s5:=s5+s1[i];
  9. end;
  10. s6:='';
  11. for i:=1 to length(s2) do begin
  12. val(s2[i],l,code);
  13. if code=0 then s6:=s6+s2[i];
  14. end;
  15. s7:='';
  16. for i:=1 to length(s3) do begin
  17. val(s3[i],l,code);
  18. if code=0 then s7:=s7+s3[i];
  19. end;
  20. s8:='';
  21. for i:=1 to length(s4) do begin
  22. val(s4[i],l,code);
  23. if code=0 then s8:=s8+s4[i];
  24. end;
  25. if length(s5)>7 then delete(s5,1,4);
  26. if length(s6)>7 then delete(s6,1,4);
  27. if length(s7)>7 then delete(s7,1,4);
  28. if length(s8)>7 then delete(s8,1,4);
  29. if s5=s6 then writeln ('YES') else writeln('NO');
  30. if s5=s7 then writeln ('YES') else writeln('NO');
  31. if s5=s8 then writeln ('YES') else writeln('NO');
  32. end.
Success #stdin #stdout 0s 232KB
stdin
Standard input is empty
stdout
YES
YES
YES