У тебя у самого в условии готовый ответ var d,l:integer; begin readln(d); l:=3.14*d; writeln(l); end.