Сделать на паскале.переделать на постусловие. 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.