Program task;
var a,b,c:integer;
s:real;
begin
write('Введите сумму вклада : ');
read(a);
write('Введите под какой процент : ');
read(b);
write('Введите сколько прошло лет : ');
read(c);
s:=(a/100)*b*c;
write('Через ', c ,' лет у вас будет ', s ,' рублей ');
end.