Один человек поставил в банк 10000 под 5% и надо написать программу которая вычислит сколько он будет иметь денег через 10 лет

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.