Digma держи решение program zadcha; uses crt; var a,b,c,d,r:real; begin clrscr; writeln('Vvedite chisla'); write('a=');readln(a); write('b=');readln(; write('c=');readln(c); write('d=');readln(d); clrscr; if (a> and (a>d) then begin r:=c*d; write('R=',r:4:3) end else if (bd) then begin r:=sqrt(a-c); write('R=',r:4:3) end else if (c>a) and (c> and (c begin r:=d*d; write('R=',r:4:3) end else write('A=',a:4:3,' B=',b:4:3,' C=',c:4:3,' D=',d:4:3); readkey; end.