Resumindo GAE4

Este guia foi fácil, pois não envolvia uma linguagem de nível tão alto como os outros.

Programa Fonte:
program silasviveirostoledo;
 var x:real;
    a:integer;
    b:integer;
begin
  writeln('Escreva o valor de a');
  readln(a);
  writeln('Escreva o valor de b');
  readln(b);
 while a<>b do
    begin
      if a>b
       then begin
         a:=(a-b);
            end        
       else begin
         b:=(b-a);
            end;
    end;
x:=a;
writeln('x é igual a:',x);
end.