Вопрос Переделать программу на паскале. Нужно постусловие.

[Blaze2304]

program Zadacha_6;
var x,y:real;
begin
x:=2;
y:=2;
while x<=42 do
while y<=40 do
begin
y:=y+2/sqrt(x);
x:=x+2;
end;
writeln;
end.