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

Опредилите, выгодно ли было вам ездить без билета.

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

Program Alimka1908;uses crt;var  x,c:real;begin  write('Введите стоимость проездного '); readln(x);  write('Введите сумму штрафа '); readln(c);  writeln('В этом месяце Вас оштрафовали 5 раз на общую сумму ',5*c,' рублей.');  writeln();  if (5*c>x) then       writeln('Ездить зайцем невыгодно. Купите себе проездной')    else       writeln('Вы удачливый заяц - Вам это выгодней, чем тратить деньги на проездной');end.