По информатике , составить программу для нахождения суммы 4 трёх значенных чисел

Var
i,sum,tmp:integer;
begin
for i:= 1 to 4 do
  begin
    read(tmp);
    sum:= sum+tmp;
  end;
Writeln(sum);
end.