Var a:real;
begin
readln(a);
writeln(12*a*a+7*a-16);
<span>end.</span>
#include <iostream>
<span>#include <iomanip>
</span>using namespace std;
<span>int main() {
</span> char a[200];
<span> cout<<"string: "; cin>>a;
</span><span> a[strlen(a)/2]=0;
</span><span> cout<<a<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
ввод - вывод
string: ABCDEFGH
ABCD
</span><span>
</span>
1A3 (16) =1*16²+10*16¹+3*16°=256+160+3=419 (10)
ответ: 419
var
a, b: integer;
begin
write('введите две стороны = >');
readln(a, b);
writeln('периметр = ', 2 * (a + b));
writeln('площадь = ', a * b);
end.