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

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
function max(a,b:integer):integer;
begin if a>b then Result:=a else Result:=b end;

begin
  Writeln(max(Readinteger,ReadInteger))
end.

Тестовое решение:
7 4
7

4 7
7

#Python 3.4

def max(a, b):
    if a > b:
        return a
    else:
        return b

# Тестовый прогон

print(max(3, 5))
5

print(max(5, 3))
5

print(max(int(input()), int(input(
А тут будет выведено максимальное из того, что введете

Объяснение:

1. Б

2. В

3. Б

4.  Не понимаю сути вопроса

5. Б

6. Анализ, обобщение, синтез

7. В

8. В

9. Б

10. А

11. Б

12. Б

13. Г

14. Умозаключение, понятие, суждение

15. А

16. Б

17. А  

18. Переместить, копировать, удалить, открыть (кодировать не уверен)

19. В

20. 1, 3, 5, 8 (7 не уверен)  

21. Б

22. А

23. Монитор, колонки, принтер

24. Графический планшет, клавиатура, сканер, микрофон

25. Кнопка "Пуск", панель быстрого запуска, панель задач, флажок, значки (ярлыки) (текстовое поле ?)

P.S. Заранее извини, если что-то неправильно.

Program pr1;

uses crt;

var  

  n:byte; // Размерность массива

  i:byte; // Счетчик массива

  a:array[1..20] of real; // Массива чисел

  S:real; // Сумма чисел

Begin

  clrscr;

  write('Введите размерность массива: ');

  readln(n);

  writeln('Введите ',n,' элементов');

// Блок ввода

  for i:=1 to n do

     readln(a[i]);

// Блок вывода

  writeln('Исходный массив');

  for i:=1 to n do

     write(a[i]:6:1,' ');

     writeln;

     readln;

// Блок инициализации

  S:=0;

  for i:=1 to n do

     if(a[i]<5) then

        S:=S+a[i];    

  readln;

  writeln('S= ',S);

End.