高考问答暗黑梦境头盔符文之语:一道PASCAL题!高手进
来源：百度文库 编辑：高考问答 时间：2024/05/05 09:01:52
将一个边长为x的正方形的四条边分别向两端各延长一倍，连接8个端点得到一个八边形求黄色部分的面积，边长x由键盘输入，若x小于等于0输出“error”。
输入样例：x＝2
输出样例：s＝24
输入样例：x＝2
输出样例：s＝24
program eight;
var
x:integer;
begin
read(x)
if x<=0 then
begin
writeln('error');
end
else
begin
writeln('s=',x*x*6);
end;
end.