Помогите заменить цикл while на for в программе:
var
i,z,y,x: integer;
begin
writeln('Введите числа: ');
readln(x,y);
while i <> y do
begin
z:=z+x;
i:=i+1;
end;
write(z);
end.