Var a:real;
begin
readln(a);
writeln(12*a*a+7*a-16);
<span>end.</span>
Var
A:integer;
Begin
Write(A);Read(A);
if (A>9)and(A<100) then Write('А - двузначное')
else Write('А - не двузначное')
End.
И как это понимать? Формулируйте свои вопросы нормально
25==11001
47=<span>101111
94=</span>1011110<span>
115=</span><span>1110011
203=</span>11001011<span>
458=</span><span>111001010</span>