-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.
