помогите пожалуйста составить программу для задачи в паскале... уличный продавец газет получает a рублей с продажи каждой из первых 50 газет. С продаж каждой из остальных газет он получает на 20% больше. разработайте программу,которая вычислит заработок продавца,если он продает за день 200 газет.

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.