Используя цикл for вычислить сумму 7-ми произвольных чисел, введенных с клавиатуры.составить для паскаль. буду

Program DZ;
var i: longint; 
  x,s:real;
begin
  s:=0;
  for i:=1 to 7 do
    begin
       read (x);
       s:=s+x;
    end;
  write (s);
end.