帮我看看这段程序哪错了！！FREE PASCAL

语句结束要加分号，程序结束要加句号。
program cc;
const
p=3.14 ;{这里}
var
r,l,s:real;
BEGIN
read(r);
l:=r*p*2
s:=r*r*p
write(r,l,s);
END.{这里}

你忘记加句号和分号了。
赋值语句后面都有分号的
end后面要有句号
profram cc;
const
p=3.14；
var
r,l,s:real;
BEGIN
read(r);
l:=r*p*2；
s:=r*r*p；
write(r,l,s);
END.

你好像把program打成profram了……

program cc;
const
p=3.14;
var
r,l,s:real;
BEGIN
read(r);
l:=r*p*2;
s:=r*r*p;
write(r,l,s);
END;

首先是program写错了，然后，除了else前面的语句，其他的语句都是要打分号的哦～我已经帮你改过来了

profram cc;
const pi=3.14;
var r,l,s:real;
Begin
read(r);
l:=r*p*2;
s:=r*r*p;
write(r,l,s);
End.