language: Pascal (gpc) (gpc 20070904)
date: 103 days 23 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
9
10
program modeq (input,output);
    var M, N, Q ,i ,j, k: integer;
begin
    readln(M, N, Q);
    i:= M mod 42;
    j:= N mod 42;
    k:= Q mod 42;
    if (i=j) and (j=k) then writeln(i)
      else writeln('no');
end.