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

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

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.

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.