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