Ввести радиус(R) и вывести длину окружности(В паскале). Очень срочно

Question

Ввести радиус(R) и вывести длину окружности(В паскале). Очень срочно

Answer 1

Program n1;
var r: real;
begin
readln(r);
writeln(2*pi*r);
end.

Answer 2

Вроде так:
program dlina;var l,r:real;begin  readln(r);  l:=r*2*3.14;  writeln(l);end.