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.