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

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.

program Zadacha_6;var  x,y:real;begin  x:=2;  y:=2;  repeat    repeat      y:=y+2/sqrt(x);      x:=x+2    until y>40  until x>42;  writeln(y)end.