Programmation en turbo pascal

bah, j'ai oublié un peu ce langage
un petit effort pour toi

program exercice1;
uses wincrt;
var
rayon,perimetre,aire : real;
begin

writeln("donner le rayon");
read(rayon);

writeln('le perimetre est : ',2*rayon*3.14);
writeln('l aire est :  ',r*r*3.14);


end.

voila un tutoriel
https://pascal.developpez.com/cours/ptrau/?page=page_2#LII

Regarde le très bon tutoriel de Hugo ETIEVANT.
Les chapitre I et chapitre III devraient suffire pour ton problème...

Et en cas d'allergies aux maths, voici quelques rappels sur la mesure d'un cercle.