Составить алгоритм по информатике

var a:array[1..5] of integer;
i,max:integer;
begin
writeln('Вводите числа по очереди:');
for i:=1 to 5 do
begin
readln(a[i]);
if a[i]>max then max:= a[i];
end;
writeln('Максимальное число: ',max);
end.

var a,i,max:integer;
begin
writeln('Вводите числа по очереди:');
for i:=1 to 5 do
begin
readln(a);
if (a>max) or (i= 1) then max:= a;
end;
writeln('Максимальное число: ',max);
end.

81 7 50 100 83
maximalnoe = 100
--------
30 50 17 2 84
maximalnoe = 84
--------
50 1 27 3 35
maximalnoe = 50
--------
49 100 58 72 10
maximalnoe = 100
--------
40 74 43 68 62
maximalnoe = 74
--------
56 15 21 28 23
maximalnoe = 56
--------
15 30 92 82 4
maximalnoe = 92
--------
24 71 85 92 68
maximalnoe = 92
--------
46 60 3 60 97
maximalnoe = 97
--------
21 48 57 31 1
maximalnoe = 57
--------
42 95 84 65 1
maximalnoe = 95
--------
5 13 33 56 82
maximalnoe = 82
--------
26 5 35 83 92
maximalnoe = 92
--------
31 16 88 59 77
maximalnoe = 88
--------
100 72 28 38 89
maximalnoe = 100
--------
31 81 13 90 84
maximalnoe = 90
--------
50 85 62 32 85
maximalnoe = 85
--------
99 35 91 2 24
maximalnoe = 99
--------
4 73 9 67 12
maximalnoe = 73
--------
1 84 84 59 60
maximalnoe = 84
--------
20 91 20 53 66
maximalnoe = 91
--------
86 38 13 69 50
maximalnoe = 86
--------
26 69 64 99 53
maximalnoe = 99
--------
91 74 69 67 67
maximalnoe = 91
--------
32 40 48 70 31
maximalnoe = 70
--------
29 99 82 21 35
maximalnoe = 99
--------
17 38 49 88 73
maximalnoe = 88
--------

С ввóдом в одну строку:

var k:integer; max:int64; a:array[1..5] of int64; begin write('> '); read(a[1]); max:=a[1]; for k:=2 to 5 do begin read(a[k]); if (a[k]>max) then max:=a[k] end; writeln('Максимальное число ',max) end.

С ввóдом в столбик (здесь массив, естественно, не нужен!):

var k:integer; x,max:int64; begin write('1-ое число > '); readln(x); max:=x; for k:=2 to 5 do begin write(k,'-ое число > '); readln(x); if (x>max) then max:=x end; writeln('Максимальное число ',max) end.