Сделать на паскале.Переделать задачу на постусловие.

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(y);
end.