Подпрограмму
procedure rez(x,y:real):real;
begin
... rez=xxxxxx'
end;
redln(y);
z:=rez(x,y);
writeln(z);
.....
Это минимальная единица измерения количества информации равному одному разряду в двоичной системе счисления.
(Наверно...)
<span>Program calc;</span>
<span>Var x,y: real;</span>
<span>Begin</span>
<span>Write('Первое число:');</span>
<span>readln (x);</span>
<span>y := (1-x*2+5*x*4)*2;</span>
<span>// y := pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степени</span>
<span>Write ('Результат:',y);</span>
<span>End.</span>