Var s, n, sp: real;
Begin
Writeln ('введите сумму вклада');
Readln(s);
Writeln('на сколько лет');
Readln(n);
Sp:=s*1.02*n;
Writeln(sp)
End.
Var s, n, sp: real;
Begin
Writeln ('введите сумму вклада');
Readln(s);
Writeln('на сколько лет');
Readln(n);
Sp:=s*1.02*n;
Writeln(sp)
End.