Bài 1

Var a,b,tg:Int64;
  Begin
      Readln(a,b);
      While b<>0 do
          Begin
                Tg:=a mod b;
                 a:=b;
                 b:=Tg;
          End;
       Write(a);
       Readln;
   End.
Bài 2   

Var a,b,c:Qword;
   Begin
        Readln(a,b,c);
         If (a<0) and (b<0) and (c<0) then
             Begin
                 Write('-1');
                 Readln;
                 Exit;
              End
         Else
           Begin
             If (a>b) and (b>c) then Write(a)
                 Else If (a<b) and (a>c) then Write(b)
                     Else If (c>a) and (a>b) then Write(c);
             Readln;
            End;
     End.

Bài 1:

program Hello;
uses crt;
var a,b,i: longint;
begin
    clrscr;
    readln(a,b);
    for i:= a downto 1 do
        if (a mod i = 0) and (b mod i = 0) then
            begin
                write(i);
                break;
            end;

readln;
end.

==================================

Bài 2:

program Hello;
uses crt;
var a,b,c,max: longint;
begin
    clrscr;
    readln(a,b,c);
    if max < a then
        max:=a;
    if max < b then
        max:=b;
    if max < c then
        max:=c;
    if max = 0 then
        write('-1')
    else
        write(max);
readln;
end.