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 ạ

program sksk;
uses crt;
var a, b, c, d, max : integer;
begin clrscr;
write (' nhap so a :');readln (a);
write (' nhap so b :');readln (b);
write (' nhap so c :');readln (c);
write (' nhap so c :'); readln(d );
max := a mod b;
if ( b mod c ) > max then max := (b mod c );
if ( c mod d ) > max then max := (c mod d );
if ( d mod a ) > max then max := (d mod a);
writeln('gia tri a, b, c, d lan luot la :', a,' ', b,' ', c,' ', d );
writeln('thuong so cua ', a,' va ', b,' la : ',(a/b):8:2);
writeln('thuong so cua ', b,' va ', c,' la : ',(b/c):8:2);
writeln('thuong so cua ', c,' va ', d,' la : ',(c/d):8:2);
writeln('thuong so cua ', d,' va ', a,' la : ',(d/a):8:2);
if max = b mod c then 
writeln(' phep chia ', b,' va ', c,' co phan du lon nhat ');
if max = a mod b then 
writeln(' phep chia ', a,' va ', b,' co phan du lon nhat ');
if max = c mod d then 
writeln(' phep chia ', c,' va ', d,' co phan du lon nhat ');
if max = d mod a then 
writeln(' phep chia ', d,' va ', a,' co phan du lon nhat ');
readln
end.