Var a,y:real;
begin
readln(a);
if (a<=0)then y:=a+5 else
if (a>0) and (a<1)then y:=1/a else y:=sqr(a);
print(y);
end.
var
a, b, c, d, z : integer;
begin
writeln('введите A B C D');
read(a);
read(b);
read(c);
read(d);
z := max(a, max(b+c, d+1));
writeln('z=', z);
end.
При вычислении положить длинной стороной содержащие 5 шариков
шарики с нижней половины единицы с верхней пятерки
считать числа надо с право на лево