Объяснение:
var
h:real;
x:real;
a, b:real;
v:real;
begin
a:=0.5;
b:=1;
h:=0.1;
x:=a;
while (x <= b) do begin
v:=0.45/x;
writeln('p = ', x:3:3, ' v = ', v:3:3);
x:=x+h;
end;
end.
