Напишите программу в паскале (решение): известна масса каждого человека из группы. верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в 2 раза?

var min,max: integer;

a: real;

begin

write("vvedite massi vseh ludei iz gruppy: ");

read(a);

min: =a;

while (a> 0) do

begin

read(a);

if (a> max) max: =a;

if (a< min) min: =a;

end;

a: =max/min;

if (a> 2) then write("verno") else write("neverno");

readln

end.

program xxx;

    var i, n : integer;

                a, d : real

                      s: array[1..20] of real;

begin

    write('введите n-');

    readln (n);

    write('введите а=');

    readln(a);

    write('введите d=');

    readln(d);

    s[1]: =a;

    for i: =2 to n do

        s[i]: =a+d;

    write('арифметическая прогрессия: ');  

    for i: =1 to n do

              write(s[i]);

end.

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.