Определить сумму стоимости товаров отправленных в город волгоград за вчерашний день

//Язык Pascal

Program Test;

Var
N: integer; Sum, Tovar: real;

Begin

Sum := 0;

Write('Введите количество отправленных товаров: ');
Readln(N);
Writeln();

for var i := 1 to N do
begin
Write('Введите стоимость ', i, ' товара (руб): ');
Readln(Tovar);
Sum := Sum + Tovar;
end;

Writeln();
Writeln('Сумма стоимости отправленных товаров соствляет ', Sum, ' рублей');

End.