Cod sursa(job #43574)

Utilizator TudorutzuMusoiu Tudor Tudorutzu Data 30 martie 2007 11:58:32
Problema Next Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.23 kb
Raporteaza aceasta sursa 
var n,d:integer;
    f,g:text;
begin
     assign(f,'next.in'); reset(f);
     assign(g,'next.out'); rewrite(g);
     readln(f,n);
     read(f,d);
     if n mod d = 0 then write(g,n)
     else write(g,n);
     close(g);
end.