Товар общим весом Р тонн может быть доставлен по 1-му из путей.Стоимость транспартировки 1-й тонны товара на расстояние 1 км по каждому из путей равна S1,S2,S3 руб. Соответственно. Длинна каждого из путей равна A1,A2,A3 км. Выбрать наиболее экономичный вариант транспартировки. Вывести номер маршрута и стоимость перевозки — Pascal(Паскаль)

uses crt;
 
var x1,x2,x3,
    s1,s2,s3,
    a1,a2,a3,p:integer;
 
begin
 clrscr;
 writeln('Введите стоимость перевозки тонны груза на километр пути :');
 writeln('');
 write('1-ый маршрут :');
 read(s1);
 writeln('');
 write('2-ой маршрут :');
 read(s2);
 writeln('');
 write('3-ий маршрут :');
 read(s3);
 writeln('');
 writeln('Введите протяженность пути :');
 writeln('');
 write('1-ый маршрут :');
 read(a1);
 writeln('');
 write('2-ой маршрут :');
 read(a2);
 writeln('');
 write('3-ий маршрут :');
 read(a3);
 writeln('');
 write('Введите вес товара :');
 read(p);
 writeln('');
 
  x1:=s1*p*a1;
  x2:=s2*p*a2;
  x3:=s3*p*a3;
 
 if (x1 < x2) and (x1 < x3) then
  begin
   writeln('Экономичнее первый путь');
   writeln('Стоимость перевозки груза ',x1);
  end;
 
 if (x2 < x1) and (x2 < x3) then
  begin
   writeln('Экономичнее второй путь');
   writeln('Стоимость перевозки груза ',x2);
  end;
 
 if (x3 < x1) and (x3 < x2) then
  begin
   writeln('Экономичнее третий путь');
   writeln('Стоимость перевозки груза ',x3);
  end;
 
 if (x1 = x2) and (x2 = x3) then
  begin
   writeln('Все пути одинаково экономичны');
   writeln('Стоимость перевозки груза ',x1);
  end;
 
 readkey;
end.