У тебя у самого в условии готовый ответ
var d,l:integer;
begin
readln(d);
l:=3.14*d;
writeln(l);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.