ПОМОГИТЕ СРОЧНО ПАСКАЛЬ ДАМ 20 БАЛЛОВ 2 3 и 4 пожалуйста

-----------------

Третья

-------------------------------

program psck;var z, p, sum, now : real;count: integer;beginreadln(now);sum:=now;count:=1;while now<100 dobegin now:=now*1.1+5; count:=count+1; sum:=sum+now;end;writeln('Номер дня - ',count);writeln('Зарплата в этот день - ',now);writeln('Сумма заработанных денег - ',sum:20:2);end.

И удали переменные z и p, они не нужны для решения третьей задачи, забыл удалить)