Тема: Обчислення виразу залежно від умов
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Math;
var
a, b, c, d, x, y, z : Real;
v : Real;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Write('a='); Readln(a);
Write('b='); Readln(b);
Write('c='); Readln(c);
Write('d='); Readln(d);
Write('x='); Readln(x);
Write('y='); Readln(y);
Write('z='); Readln(z);
begin
if ((sqr(c) <= (sqr(x) + sqr(y) + sqr(z))) and
((sqr(x) + sqr(y) + sqr(z)) <= sqr(d)) ) then
V := (a / (max(x , max(y,z))));
end;
begin
if ((sqr(x) + sqr(y) + sqr(z)) <= sqr(c) ) then
V := (b / (min(x , min(y,z))))
else
V := (a + b)/2;
end;
Write(V);
Readln;
end.