Что следует понимать под здоровьем человека?

1)
var a, b, c, i, n, j :integer;
     s :string;
begin
   read (s);
   for i:=1 to length(s) do
   begin
      if (ord (s[i])>=97) and (ord (s[i])<=122) then write (char(ord (s[i])-32))
      else write (s[i]);
   end;
end.
2)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   if s[1]=' ' then
   begin
      j:=j+1;
     p[j]:=1;
   end;
   for i:=2 to length(s) do
      if (s[i]=' ') and (s[i-1]<>' ') then
         begin
           j:=j+1;
           p[j]:=i;
         end;
   for i:=1 to j do
   begin
      a:=p[i];
      p[i]:=0;
      while s[a]=' ' do
      begin
         inc (p[i]);
         a:=a+1;
      end;
   end;
   b:=p[1];
   for i:=1 to j do
      if p[i]>b then b:=p[i];
   write (b);
end.
3)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   write (s[i]);
   while s[i]<>':' do
      begin
      inc (i);
      write (s[i]);
      end;
end.
4)
var a, b, c, i, n, j :integer;
     s :string;
     p :array[1..10000] of integer;
begin
   read (s);
   i:=1;
   while s[i]<>':' do
      inc (i);
   i:=i+1;
   while (s[i]<>':') and (i<=length(s)) do
      begin
      write (s[i]);
      inc (i);
      end;
end.