Se der algumas M**** está aqui

{Código Pascal}

{cabeçalho do programa}
Program StarPascal;
{área de declarações}
Const
Multa2007 = 10;
Multa2008 : Integer = 15;
Var
Divida, Atual : Real;
Ano : Integer;
{corpo do programa}
Begin
Writeln(‘Digite o valor da
dívida:’);
Readln(Divida);
Writeln(‘Digite o ano (2007 ou
2008):’);
Read(Ano);
If  (Ano = 2007)
Then
Atual := Divida + Multa2007
+ Multa2008 {não tem ;}
Else
Atual := Divida + Multa2008;
End.
De ImagensParaoBlog
Anúncios