Răspuns:
program brainly;
Function lungime(l:integer):real;
begin
lungime:=2*3.14*l;
end;
var f:integer;
r:real;
begin
write('dati raza cercului f = ');readln(f);
r:=lungime(f);
writeln('lungimea cercului este = ',r)
end.
Explicație:
functia face calcului simplu 2* pi * r