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.
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.