Подсчитать общее количество бензина, израсходованное на автобазе, и его стоимость - Pascal ABC

program cars;
var
n,n1,m,m1,r,p,v,v1,s,i:integer;
begin
v:=0;
writeln('Vvedite kol-vo mashin');
writeln('legkovih');
readln(n);
writeln('gryzovih');
readln(n1);
writeln('Vvedite stoimostb benzina');
writeln('legkovih');
readln(m);
writeln('gryzovih');
readln(m1);
for i:=1 to n do
begin
writeln('Vvedite rashod ',i,'-ogo legkovogo avto');
readln(r);
writeln('Vvedite probeg ',i,'-ogo legkovogo avto');
readln(p);
v:=v+(r*p);
end;
for i:=1 to n1 do
begin
writeln('Vvedite rashod ',i,'-ogo gryzovogo avto');
readln(r);
writeln('Vvedite probeg ',i,'-ogo gryzovogo avto');
readln(p);
v1:=v1+(r*p);
end;
s:=v*m;
s:=s+(v1*m1);
writeln('kol-vo benzina=',v+v1);
writeln('stoimostb=',s);
end.