помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.

program prodavec;var a:integer; b:real;z:real;begin writeln('Введите цену за одну из 50 первых газет.'); readln(a); b:=(a*20/100)+a; z:=(a*50)+(150*b); writeln('Заработок продавца за продажу 200 газет=',z)end.

program prodavec;var a:integer; b:real;z:real;beginwriteln('Введите цену за одну из 50 первых газет.');readln(a);b:=(a*20/100)+a;z:=(a*50)+(150*b);writeln('Заработок продавца за продажу 200 газет=',z)end. 

const n=50; m=200;var a,z:real;beginwrite('a = ');readln(a);z:=a*n+a*1.2*(m-n);writeln('Заработок продавца = ',z);end.Пример:a = 2Заработок продавца = 460