Помогите срочно!!! Даю 25 баллов! (Составьте программу паскаль) Уличный продавец газет получает а рублей с продажи каждой из первых 50 газет. С продажи каждой из остальных газет он получает на 20% больше. Вычислите дневной зар...

var     k: integer;     a, s: real; begin     write('Начальная стоимость: ');     readln(a);     write('Число проданных газет:  ');     readln(k);          if k <= 50 then s := k * a     else     begin         s := 50 * a;         s := s + (k - 50) * a * 1.2;     end;     writeln('Выручка составила  ', s, ' руб.'); end.