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

program gazeta; function Main(a, k: integer): real; var    i: integer;    zar: real; begin   zar := 0;   for i := 1 to k do     if i <= 50 then       zar := zar + a     else       zar := zar + 1.2 * a;   Main := zar; end; begin   if Main(1, 49) = 49.0 then     writeln('Тест 1 пройден');   if Main(1, 51) = 51.2 then     writeln('Тест 2 пройден');   if Main(2, 100) = 220.0 then     writeln('Тест 3 пройден'); end.---Работает, протестировал.