Даны 5 любых чисел найти среднее числа на языке делфи

[_Алексей_]

Помогите пожалуйста решить задачу

[Mad_Cat]

s:=0;
For i:=1 to 5 do
begin
readln(a);
s:=s+a;
end;
writeln(s/5);