Найти длину окружности и площадь круга радиуса R (Pascal)

Question

Найти площадь и периметр прямоугольника с катетами а и в

sylap_gragolja · Accepted Answer

uses crt; 
var 
a,b,s:real; 
begin 
readln(a); 
readln(b); 
s:=a*b; 
writeln(s); 
end. 
--------------
uses crt; 
var 
a,b,p:real; 
begin 
readln(a); 
readln(b); 
p:=(a*b)/2; - формулу точно не знаю 
writeln(p); 
end.