Ошибка времени выполнения: Входная строка имела неверный формат

Question

Ошибка времени выполнения: Входная строка имела неверный формат

Русик Smile Знаток (295), на голосовании 11 месяцев назад

program S_1;
var
x,s:real;
N,a,b:integer;
begin
writeln('Вычисление выручки авиакомпании');
N:=160;
write('введите стоимость билета в бизнес-классе (руб.)>');
readln (x);
write('Введите количество непроданных билетов в бизнес-класс и эконом-класс>');
readln(a,b);
s:=((N/4)-a)*x+((N*3)/4-b)*(x/2);
writeln('Выручка авиакомпании составила>',s:8:2,'руб')

end.

Answer 1

Много орф. ошибок в коде

 program S_1; 
 
var 
  x, s: real; 
  N, a, b: integer; 
 
begin 
  writeln('Вычисление выручки авиакомпании'); 
  N := 160; 
   
  write('Введите стоимость билета в бизнес-классе (руб.)> '); 
  readln(x); 
   
  write('Введите количество непроданных билетов в бизнес-классе и эконом-классе> '); 
  readln(a, b); 
   
  s := ((N / 4) - a) * x + ((N * 3) div 4 - b) * (x / 2); 
   
  writeln('Выручка авиакомпании составила> ', s:8:2, ' руб.'); 
end.