Varp,o,r:real;beginp:=3.1415926535897932 ; readln(r);o:=2*p*r;writeln(o);end.//Длина окружности через радиус
varp,o,d:real;beginp:=3.1415926535897932;readln(d);o:=p*d;writeln(o);end.//Длина окружности через диаметр
Вот так вот,это длины.
Площадь делай сам.
И да,это на паскале,на блок схемы потом переведешь.