Проездной в троллейбусе стоит X рублей.Вы ездите без билета.Штраф за безбилетный проезд состовляет С рублей. Вас в месяц оштрофавали 5 раз. Опредилите, выгодно ли было вам ездить без билета.

uses crt;
var
x,c:real;
begin
write(Сколько стоит проездной? ); read(x);
write(Вы ездите без билета. Сколько составляет штраф? ); read(c);
write(За безбилетный проезд Вас оштрафовали за месяц на ,5*c, рублей.);
if (5*c>x) then write(Это невыгодно. Купите проездной.)
else write(Это выгодней, чем покупать проездной каждый месяц.);
end.