информатика 9 класс. найти длину окружности и S круга. Сделать проверку ввода. Спасибо!!!

1)

const t=3.14;
var R,P:real;
begin
writeln('Введите радиус окружности');
readln(R);
P:=2*3.14*R;
writeln('P=',P);
readln;
end.

2)const t=3.14;
var R,S:real;
begin
writeln('Введите радиус окружности');
readln(R);
S:=3.14*sqr(R);
writeln('S=',S);
readln;
end.