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

1)

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

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