var string function lines name string integer var integer char text be

var s:string;
function lines(name:string):integer;
var i:integer;
c:char;
f:text;
begin
  assign(f,name);
  reset(f);
  while not eof(f) do
  begin
    while not eoln() do read(f,c);
    inc(i);
    end;
    lines:=i;
    close(f);
end;
function symbols(name:string):integer;
var i:integer;
c:char;
f:text;
begin
  assign(f,name);
  reset(f);
  while not eof(f) do
    while not eoln() do 
    begin
      read(f,c);
      inc(i);
    end;
  symbols:=i;
  close(f);
end;
begin
  readln(s);
  writeln('Lines: ',lines(s));
  writeln('Symbols: ',symbols(s));
end.