Pascal срочно!!!!!! С помощью оператора case !!! На станции есть бензин нескольких марок и по разной цене. Клиент выбирает марку бензина и называет количество литров. Вывести чек обслуживания клиента. В нем обязательно должны быть название станции, место расположения, имя оператора, номер колонки, название бензина, количество литров,общая сумма за бензин, сколько было дано денег, сколько дать на сдачу, и пожелать хорошего дня (или другое). Оч срочно.

Уу...Как плохоТам всё должно быть красиво и в столбик. Скопировал из паскаля, называется

У меня программа рабочая. Копируйте, вставьте в паскаль и потыкайте Enter после каждого символа ";".Прошу прощения за такое оформление

Забудьте, что писал, более менее поправил :D

program n_5;var  a, d: integer;   b, c, f: real;begind := random(1, 8);  writeln('Для выбора А-92 введите 1. Цена: 20.00руб. за литр');  writeln('Для выбора А-95 введите 2. Цена: 25.00руб. за литр');  writeln('Для выбора А-98 введите 3. Цена: 30.00руб. за литр');  write('Введите марку бензина - ');  readln(a);  write('Введите количество литров - ');  readln(b);  if (a < 1) or (a > 3) or (b <= 0) then    write('Ошибка. Введены некорректные значения');  case a of    1: c := 20 * b;    2: c := 25 * b;     3: c := 30 * b  end;  writeln;  writeln('.........Кассовый чек.........');  writeln('АЗС: "Полный бак"');  writeln('Адрес: г.Волгоград, улица Новослободская д.32');  writeln('Кассир: Иванова Ирина Викторовна');  writeln('Номер колонки: ', d);  case a of    1: writeln('Бензин: А-92');    2: writeln('Бензин: А-95');    3: writeln('Бензин: А-98');  end;  write('Введите размер оплаты - ');  readln(f);  writeln('Сумма к оплате - ', f);  if f > c then    writeln('Сдача: ', f - c)  else    writeln('Не достаточно средств');  write('Хорошего дня');end.