Program bt4_1;

Var a,b:integer;

Begin

     write('nhap a,b:');

     readln(a,b);

     if (a mod b) = 0 then writeln(b,' la uoc cua ',a)

     else writeln(b,' khong la uoc cua ',a);

     if (b mod a) = 0 then writeln(a,' la uoc cua ',b)

     else writeln(a,' khong la uoc cua ',b);

     readln;

End.

program maxmin;
uses crt;
var m:array[1..100] of integer;max,m1,i,min:integer;
BEGIN
clrscr;
Write('Nhap so phan tu cua day: ');readln(m1);
for i:=1 to m1 do
begin write('Nhap phan tu thu ',i,' : ');readln(m[i]) end;
max:=m[1];min:=m[1];
for i:=2 to m1 do
if m[i]>max then max:=m[i];
for i:=2 to m1 do
if m[i]<min then min:=m[i];
writeln('Max: ',max);
writeln('Min: ',min);
readln
END.