2 мегобита !но компьютер тупет и плохо работает
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.
Даны ДВА числа, а найти минимум из ТРЕХ... не совсем понял
программа находит минимальное из трех чисел введенных с клавиатуры
function M(a,b : integer): integer;
begin
if a<b then
M := a
else
M := b;
end;
var a, b, c : integer;
begin
write('A: '); readln(a);
write('B: '); readln(b);
write('C: '); readln(c);
write('Minimum: ', m(m(a,b),c));
end.
После Program введи что-то, например zadanie;
Не забудь про символ "точка с запятой"