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