Var
wan_money, following_money:Real;
money, a, dwesti:Real;
begin
dwesti := 200;
writeln(Введите сколько продавец получает с 1-ой газеты);
readln(wan_money);
following_money := wan_money + (20/100);
writeln(С первой из 50 газет продавец получает, wan_money);
writeln(С последующих газет он получает:, following_money);
writeln();
money := wan_money*4;
a := 200-money;
money := money+(a*following_money);
writeln(Продавец получит:, money);
readln;
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.