Формализуйте предостережение, которое одна жительница древних афин сделала своему сыну, собиравшемуся заняться политической деятельностью: “если ты будешь говорить правду, то тебя возненавидят люди. если ты будешь лгать, то тебя возненавидят боги. но ты должен говорить правду или лгать. значит, тебя возненавидят люди или возненавидят боги”.

нужно делать хорошее, чтобы люди не возненавидели. надо говорить хорошими для окружающих делами

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.

используется язык pascal

program pr;

var

  mas: array[1..7] of integer;

  i: integer;

begin

writeln('вводим значения в массив');

  for i: =1 to 7 do readln (mas[i]);

writeln('выводим значения из массива');

  for i: =7 downto 1 do writeln(mas[i]);

readln;

end;