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.
В двоичной записи числа 371 вот столько нулей 101110011
Var a,b:real;
begin
write(' введите параметры уравнения ax+b=0 a и b');
read(a,b);
if (a=0) and (b=0) then write('уравнение имеет бесконечно много решений ');
if (a=0) and (b<>0) then write('уравнение не имеет решений');
if (a<>0) then write(' уравнение имеет один корень', -b/a);
end.
random(5) - от 0 до 4 => y может принимать значения: 10, 11, 12, 13, 14
Вот только там где B. In и B. Out надо написать BIn.txt и BOut.txt это делал в паскале если что