Составить программу вычисления длины окружности и площади круга одного и того же радиуса против мне программу программу и блок-схему записать отчет по результатам тестирования занести в таблицу

Вот тебе программа, блок схему по ней составь сам, это не сложно. А что за таблица - хз, видать тоже сам будешь заполнять
Var   r: Real;
begin
 Write('Введите радиус: ');
 Readln(r);
Writeln('Длина окружности: ',2*pi*r:2:2);
Writeln('Площадь круга: ',pi*Sqr(r):2:2);
 end.