Пожалуйста посчитайте плиз 3 вариант, используя функции!!!!

begin
  var k,m:integer;
  Write('Введите k,m: '); Read(k,m);
  Writeln('S=',Range(k,m).Select(i->i*i).Sum)
end.


Введите k,m: 3 6
S=86



uses Crt;
var k,m,s,i:integer;
begin
  s:=0;
  Write('Введите k,m: '); Read(k,m);
  for i:=k to m do s:=s+i*i;
  Writeln('S=',s);
  ReadKey
end.



Uses Crt;

function Sum(k,m:integer):integer;
var i,s:integer;
begin
  s:=0;
  for i:=k to m do s:=s+i*i;
  Sum:=s
end;

var k,m:integer;
begin
  Write('Введите k,m: '); Read(k,m);
  Writeln('S=',Sum(k,m));
  ReadKey
end.