Кто понимает паскаль! y1=sqrt(x); y2=1/x; y3=x/2 x∈[1; k] c началом 0,5.

Var x,y1,y2,y3:real;
k:integer;
begin
readln(k);
x:=1;
repeat
y1:=x;
write(y1:3:2,' ');
y2:=1/x;
write(y2:3:2,' ');
y3:=x/2;
write(y3:3:2);
x+=0.5;
writeln;
until x>k;
end.

как я понял