уличный продавец газет получает 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- это количество газет