Напишите поограмму для подсчета круга s=пr^2 и длины окружности l=2пr.радиус окружности вводится с клавиатуры

C++

#include <iostream>
using namespace std;

int main(){
int r=0,l=0, res;

cout<<"S=pr^2; \n p=3.14\n r = ";
cin>>r;
res = 3.14*r*r;
cout<<"S=pr^2; S="<<res<<endl;

cout<<"L=2pr;";
res = 0;
res = 2*3.14*r;
cout<<"L=2pr; L="<<res<<endl;
return 0;
}

Pascal

var s,r,l:real;
begin
readln(r);
s:=pi*sqr(r);
l:=2*pi*r;
write('s=',s,'l=',l);
readln
end.