.Множественный выбор. циклы. ряды

[katya_bush]

2.1. Даны действительные числа a, b, c, d, f. Найти максимальное из этих чисел

[Son Of Pain]

const n=5; {или сколько там чисел должно быть}
var a:array[1..n] of double;
max:double;
i:byte;
begin
   writeln('Enter ', n, ' numbers: ');
 for i:=1 to n do readln(a[i]);
 max:=a[1];
 for i:=1 to n do
   if max<a[i] then max:=a[i];
 writeln('Maximum is ', max);
 readln;
end.

[katya_bush]

Большое спасибо!!! Я думала, что никто не поможет уже)))