program oken;
uses crt;
var a,b,x,y: longint;
    chr: char;
begin
    clrscr;
    write('Nhap so thu 1: '); readln(a);
    write('Nhap so thu 2: '); readln(b);
    writeln('Hai so vua nhap: ',a,'   ',b);
    x:=a; y:=b;
    while x<>y do
        begin
            if x>y then
                x:=x-y
            else
                y:=y-x;
        end;
    writeln('UCLN(',a,',',b,'): ',x); 
    write('Nhap phep tinh: '); readln(chr);
    case chr of
        '+': writeln(a,' + ',b,'= ',a+b);
        '-': writeln(a,' - ',b,'= ',a-b);
        '*': writeln(a,' * ',b,'= ',a*b);
        '/': writeln(a,' / ',b,'= ',a/b:0:1);
    end;
    readln;
end.

uses crt;
var a,b,i:longint; s:string;
begin
clrscr;
   write('Nhap vao: ');readln(a,b);
   writeln(a,' ',b); i:=a;
   while(a mod i<>0)or(b mod i<>0)do dec(i);
   writeln('UCLN(',a,',',b,')=',i);
   write('Phep tinh can thuc hien:');readln(s);
   if s='-' then writeln(a-b);
   if s='+' then writeln(a+b);
   if s='*' then writeln(a*b);
   if s='/' then writeln(a/b:0:2);
readln
end.

Giải thích:

Mình tìm UCLN bằng cách là:

-đặt i=a;

-Nếu mà a và b không chia hết cho i(tức là i chưa là ước của a và b) thì cứ giảm dần.

Khi i là ước của a và b rồi thì i là UCLN vì i là ước lớn nhất của 2 số;

Tìm UCLN như vậy thì sẽ ngắn;

chú thích: số thứ nhất là a, số thứ 2 là b nha; 

Nếu có bạn nào tìm được cách tìm UCLN nhanh, ngắn hơn thì hướng dẫn mình nha!!!