Уличный торговец газет получает а рублей с реализации каждой из первых

1-ый шаг
Начальные данные:
а - сумма, получаемая продавцом с реализации из первых 50-ти газет.
1.2*а - сумма, получаемая торговцем с реализации каждой из следующих газет.
Нужно отыскать:
S - общую сумму, которую получит торговец с реализации k газет.

2-ой шаг
Соотношения, связывающие начальные данные и итог:
Для нахождения S можно вычислить значение последующего выражения:
S := 50*a + (k-50)*1.2*a
Тут a и S - величины вещественного типа, а k - целого

Третий шаг
Блок-схема:

Четвертый шаг
program z66;
var k: integer; a, S: real;
BEGIN
writeln (Подсчёт заработка торговца);
write (Введите сумму, которую получает продавец с реализации первый 50ти газет: );
readln (a);
write (Введите количество проданных газет: );
readln (k);
S := 50*a + (k-50)*1.2*a
writeln (Торговец получит , S , рублей);
END.

5-ый этап
Протестируйте программку при последующих начальных данных:

6-ой шаг
Сделайте расчеты при a=1.2; k=147.
Итог: 199,68