Уличный продавец газет получает "a" рублей с продажи каждой из первых 50 газет. С продажи каждой из последующих газет

PASCALprogram newspapers;var s,pricefor1NP, pricefor1NPwith20p, pricefor50firstNP, pricefornext150NPwith20p, TwoHNP: real;beginwriteln(\'Нахождение цены за 200 проданных газет уличным продавцом\');write(\'Введите сумму за 1 газету \');readln(pricefor1NP);if pricefor1NP<1then writeln(\'Неверный ввод! Числа от \"0\" до \"-n\" не могут быть ценами газет (это невозможно), следовательно: \');if pricefor1NP>1 thenbeginpricefor50firstNP:=pricefor1NP*50;s:=pricefor1NP/100;pricefor1NPwith20p:=s*20+pricefor1NP;pricefornext150NPwith20p:=pricefor1NPwith20p*150;TwoHNP:=pricefor50firstNP+pricefornext150NPwith20p;end;writeln(\'Продавец продал 200 газет за\',TwoHNP:8:2,\' рублей\');end.