Сделайте, пожалуйста! Написать программу Паскаль. 5 и 9 задача

program n5;var r, pi, L: real;beginpi:=3.14;writeln ('Введите радиус круга');readln (r);L:= 2*pi*r;write ('L=', L:4:2);end.

5)varL,r: real;beginread(r); L:=2*Pi*r;writeln('L=',L);end.9)varTC,TF:real;beginread(TF);TC:=(TF-32)*5/9;writeln('TC=',TC);end.