Помогите пожалуйста составить программу для этой задачи в паскале... уличный продавец...

Question

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

Answer 1

Const n=50; m=200;
var a,z:real;
begin
write('a = ');
readln(a);
z:=a*n+a*1.2*(m-n);
writeln('Заработок продавца = ',z);
end.

Пример:
a = 2
Заработок продавца = 460

Answer 2

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. 

Comments

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.