ПОМОГИ ПОЖАЛУЙСТА! Вкладчик внес в сберкассу x рублей. Написать программу,…

program test; var years: integer; contribution: real; begin write ('Enter the contribution sum: '); readln (contribution); write ('Enter the number of years: '); readln (years); while years <> 0 do begin contribution: =contribution+(contribution / 100*3); years: =years-1; end; writeln (contribution: 0:2, ' rub'); readln; end.