Проездной в троллейбусе стоит 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.

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.