fkn+antitotal

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

Примеры для проверки:

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них самое большое число и выведите его на экран

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

var
  a: array [1..7] of integer;
  i:integer;
begin
  a[1]:=1;
  a[2]:=12;
  a[3]:=45;
  a[4]:=6;
  a[5]:=7;
  a[6]:=18;
  a[7]:=99;
  for i:=low(a) to high(a) do
    write(a[i],' ');
end. 

Консоль:

1 12 45 6 7 18 99

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с чередованием плюсов и минисов в строках):

Напишите процедуру, которая принимает переменную целого типа по ссылке, просит пользователя ввести значение в консоли и инициализирует переменную этим значением (убедитесь, что в теле программы значение изменилось).

var a:integer;

procedure send(var z:integer);
begin
  writeln('Vvedite celoe chislo: ');
  readln(z);
end;

begin
  a:=1;
  send(a);
  writeln(a);
end.   

Консоль:

Vvedite celoe chislo: 
5

5

Напишите процедуру, которая выводит на экран сумму трёх целых чисел

var x,y,z:integer;

procedure sum(a,b,c: integer);
begin
  writeln(a+b+c);
end;

begin
  writeln('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  sum(x,y,z);
end.   

Консоль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
5

15

Напишите функцию, которая возвращает сумму трёх целых чисел.

var x,y,z:integer;
function sum(a,b,c: integer):integer;
begin
  result:=a+b+c;
end;

begin
  writeln ('Vvedite celoe chislo: ');
  readln(x);
  writeln('Vvedite celoe chislo: ');
  readln(y);
  writeln('Vvedite celoe chislo: ');
  readln(z);
  writeln(sum(x,y,z));
  readln();
end.   

Контроль:

Vvedite celoe chislo: 
5

Vvedite celoe chislo: 
4

Vvedite celoe chislo: 
7

16