Question

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

Answer 1

Поскольку повтор вопроса, будет повтор ответа)
 
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 s>20
  then
   begin
    s:=(s-20)*n;
    writeln('For luggage: ',s:0:2);
   end
  else
   writeln('For luggage: ',s:0:2);

  if a[7]>5
   then
    begin
     a[7]:=(a[7]-5)*m;
     writeln('For hand luggage: ',a[7]:0:2);
    end
   else
    writeln('For hand luggage: ',a[7]:0:2);
 readln
end.