program Timuoc;
var a,b,r,m,n,ucln : integer;
begin
write('Nhap a:'); readln(a);
write('Nhap b :'); readln(b);
for n:=1 to a do
if (a mod n=0) and (b mod n=0) then write(n:3);
readln
end.

program nhapdiem;
var a : array[1..10] of real;
i : integer;
begin
 for i:=1 to 10 do begin
 write('Nhap diem cho hoc sinh ',i,' la :'); readln(a[i]);
 end;
readln
end.

-Chương trình 1:

program oken;
uses crt;
var a,b,i: longint;
begin
    clrscr;
    write('Nhap so a: '); readln(a);
    write('Nhap so b: '); readln(b);
    write('UC(',a,',',b,':');
    for i:= 1 to a do
        if (i mod a=0) and (i mod b=0) then
            write(' ',i);
    readln;
end.

-Chương trình 2:

program oken;
uses crt;
var a: array [1..10] of real;
    i: byte;
begin
    clrscr;
    for i:=1 to 10 do
        repeat
            write('Nhap diem ban thu ',i,': ');
            readln(a[i]);
            if (a[i]<0) or (a[i]>10) then
                write('Diem ban thu ',i,' khong hop le. Moi nhap lai');
        until (a[i]>=0) and (a[i]<=10);
    writeln('----Diem cac ban vua nhap----');
    for i:=1 to 10 do
        writeln('Diem ban thu ',i,': ',a[i]:0:1);
    readln;
end.