Resposta para tudo.

Gere o MEPA para o código pascal abaixo.

Você deverá submeter somente o arquivo MEPA que represente este código.

Entrada

in.pas

program exemplo5 (input, output);
var n, k      : integer;
   f1, f2, f3 : integer;
begin
   read (n);
   f1:=0; f2:=1; k:=1;
   while k<=n do
   begin
      f3:=f1+f2;
      f1:=f2;
      f2:=f3;
      k:=k+1;
      write(k)
   end;
   write (n);
   write (f1)
end.