Viết chương trình thực hiện các công việc sau: - Nhập từ bàn phím 4 số a, b, c, d (0 < a, b, c, d < 100) - Chia a cho b, b cho c, c cho d và d cho a (a/b ; b/c ; c/d ; d/a) - Cho biết phép chia nào có số dư lớn nhất. Ví dụ: a = 5 b = 12 c = 8 d = 3 Yêu cầu: Đưa các kết quả sau ra màn hình Dòng 1: Các số vừa nhập Dòng 2: Các thương số Dòng 3: Phép chia có số dư lớn nhất. (pascal)

uses crt;

var a,b,c,d,E,F,G,H,max:integer;

begin

clrscr;

write('nhap a: ');readln(a);

write('nhap b: ');readln(b);

write('nhap c: ');readln(c);

write('nhap d: ');readln(d);

writeln('a/b=',a/b);

writeln('b/c=',b/c);

writeln('c/d=',c/d);

writeln('d/a=',d/a);

E:= a mod b;

max:=E;

F:= b mod c;

G:= c mod d;

H:= d mod a;

if max:= E then writeln(' phep chia cua ',a,' va ',b,' co so du lon nhat');

if F>max then max:=F;

if max:= F then writeln(' phep chia cua ',b,' va ',c,' co so du lon nhat');

if G>max then max:=G;

if max:= G then writeln(' phep chia cua ',c,' va ',d,' co so du lon nhat');

if H>max then max:=H;

if max:= H then writeln(' phep chia cua ',d,' va ',a,' co so du lon nhat');

readln;

end.

Xin hay nhất ạ