Введите пять целых положительных чисел (программа Паскаль)

program primer;
var i:byte;
S,x:word;
begin
S:=0;
writeln('Введите пять целых положительных чисел');
For i=1 to 5 do
begin
readln(x);
S:=S+x;
end;
writeln(S);
readln;
end.