program intervalai;
    var a,b,ska,sk,i,vidsk:integer;
        vid:real;
begin
  WriteLn('Įveskite intervalą nuo a iki b');
  Readln(a,b);
  for i:=a to b do
  begin
  sk:= i mod 10;
  if sk mod 5 = 0 then begin
                        WriteLn(i);
                        ska:=ska+1;
                        vidsk:=vidsk+i;
                        end;
  end;
  vid:=vidsk/ska;
  WriteLn('Skaičių, kurie baigiasi 5 vidurkis yra ',vid:6:2);
  ReadLn
end.