Информатика 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.