Viết chương trình nhập vào 1 số nguyên a từ file inp. in ra file out 2 dòng dòng 1: thương của phép chia 2021 cho a dòng 2: số dư của phép chia 2021 c

program phepchia;

var fi,fo:text;

      a:integer;

begin

     Assign(fi,’FILE.inp’);   reset(f);

     Assign(fo,’FILE.out’);   rewrite(fo);

     readln(fi,a);

     writeln(g,2021 div a);

     writeln(g,2021 mod a);

     close(fi);   close(fo);

end.