Câu 1 bạn tự thêm file nhập xuất nha:
uses crt;
var n,i,j,max,x,y:longint;
function uc(x,y:longint):longint;
begin
while x<>y do
if x>y then x:=x-y else y:=y-x;
uc:=x;
end;
begin
clrscr; readln(n);
i:=1; j:=n-1; max:=0;
while i<=j do
begin
if uc(i,j)>max then
begin
max:=uc(i,j); x:=i; y:=j;
end;
inc(i); dec(j);
end;
writeln(n);
writeln(x,' ',y,' ',max);
readln
end.