Составить алгоритм и программу для решения найдите длину окружности l и площадь круга s если известно что его радиус равен r

Program wtf;
var S,L,pi:real;
R:integer;
begin 
writeln ('Введите R');
readln (R);
pi:=3.14;
L:=2*pi*R;
S:=2*pi*R*R;
writeln('Длина окружности= ',L);
writeln('Площадь окружности= ',S);
end.

---------------
pi- это число пи ()
оно является константой и примерно равно 3.14