Помогите с паскалем!

Савелий в категроии Информатика, вопрос открыт 25.03.2018 в 08:14

1.program zadacha;
2.const pi=3.14;
3.var r,C,s: real;
4.Begin
5.r:=5.4;
6.C:=2*pi*r;
7.S:=pi*r*r;
8.read(r);
9.write('c=',c,'s=',s);
10.end.
Что не так?