Рещите пж!!ПаскальЧерез :realЗадача 6

Спс жду....

Ну...

Под на данный момент я имею кое-какое время) Минут 15 может

Ок

Giammy,поспеши пожалуйста,мне очень необходимо решение

Уже отправляю

Giammy и еще скажи кто у тебя на аве изображен

Аниме тян, хз кто

Пж скажи кто,я проголосую за твой ответ

Я не знаю, просто рандом из веба

Program p1;
var
 n,m,s:real;
 i:integer;
 a:array[1..7] of real;
begin
 write('Write n: '); readln(n);
 write('Write m: '); readln(m);
 writeln('Enter the weight of things: ');
 for i:=1 to 7 do
  read(a[i]);

 s:=0;
 for i:=1 to 6 do
  s:=s+a[i];
 if sgt;20
  then
   begin
    s:=(s-20)*n;
    writeln('For luggage: ',s:0:2);
   end
  else
   writeln('For luggage: ',s:0:2);

  if a[7]gt;5
   then
    begin
     a[7]:=(a[7]-5)*m;
     writeln('For хэнд luggage: ',a[7]:0:2);
    end
   else
    writeln('For хэнд luggage: ',a[7]:0:2);
 readln
end.