Ты написал вместо "begin" bedin. И за константу Pi брать не надо. В системе Pi уже есть, поэтому начальные значения ей давать не нужно. У тебя программа должна выглядеть вот так:
program n_2;
var r, c, s: real;
begin
writeln('Вычисление длины окружности и площади круга');
write('Введите r>>');
readln(r);
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.