За год квартплата повышалась дважды: первый раз на 30% , а во второй-на 40% назад семья платила квартплату , которая составляла 4500 тнг в программу , подсчитывающую сегодняшнюю квартплату

Var
a: real;
begin
writeln('Введите начальную квартплату.');
read(a);
a:=a+a*0.3;
a:=a+a*0.4;
writeln('Квартплата на данный момент составляет ',a,' тнг');
end.