program  T;

const Pi = 3.14;

var C, R, S: real;

begin

 writeln('Введите Радиус:');

 readln(R);

 C:= 2*Pi*R;

 S:= Pi*sqr(R);

 writeln('C = ', C, ', S = ', S);

end.

Немного не уверен в const, т.к. не пользуюсь этим, но поиграй там: поставь двоеточие, если не сработает. А так программа должна, в принципе работать. Только одно НО: у тебя неправильно на счёт integer, так как число пи - не целое, и программа выдаст ошибку.