Ajuda no fluxograma

luccavargas1995
(usa Outra)

Enviado em 14/10/2015 - 14:49h

Boa tarde, meu fluxograma eh incompativel com o programa pascal desenvolvido.
Gostaria de saber o q deveria ser feito para torna lo correto.

Segue abaixo o programa

Program TrabIPD1;

Var
num1, num2 : Integer;
i, resultado : Integer;

Begin

num1 := 0;
num2 := 0;
resultado := 0;

Write ('Digite o primeiro numero que participara da multiplicaçao e pressione enter: ');
ReadLn (num1);

Write ('Digite o segundo numero que participara da multiplicaçao e ao pressionar enter, aparecera o seu resultado: ');
ReadLn (num2);

If num1 > num2 Then { Este if checa se num1 é maior que num2 }
Begin

For i := 1 To num2 Do
Begin
resultado := resultado + num1;
End;

WriteLn (resultado); { Exibe o resultado do produto }

End

Else { Este else é executado quando num2 é maior que num1 }
Begin

For i := 1 To num1 Do
Begin
resultado := resultado + num2;
End;

WriteLn (resultado); { Exibe o resultado do produto }

End;

End.