Клиент открыл счет в банке 1 марта, вложив 1000 рублей. Каждый месяц размер вклада…

Program vidcvnjiod; uses crt; var p,a: real; m: integer; beginclrscr; a: =1000; p: =(a*2) /100; m: =3; repeata: =a+p; m: =m+1; until a>1050; m: =m mod 12; case m of0: writeln ('декабрь'); 1: writeln ('январь'); 2: writeln ('февраль'); 3: writeln ('март'); 4: writeln ('апрель'); 5: writeln ('май'); 6: writeln ('июнь'); 7: writeln ('июль'); 8: writeln ('август'); 9: writeln ('сентябрь'); 10: writeln ('октябрь'); 11: writeln ('ноябрь'); readln; end. Откомпиль, если ошибки, то исправь, но вроде не должно бытьВ программе а=1000 отсчитывается процентидет цикл пока сумма не больше 1050 прибавляется процент и месяц идет дальшеЗатем выбор месяца