уличный продавец газет получает x рублей от продажи каждой из первых 60 газет. с пролажи каждой из остальных газет он получает 25 процентов больше написал рограмму а поскале

Program abc;Var X, y, c :Integer ;Begin C:=0;Readln(x) ;Read(y) ;If y>60 then c:=(x*25)+((x+(x/4))*y-60);Else c:=x*y;Writeln(c) ;End. Примерно так. Y- это количество газет