Ввести четыре целых числа, найти наибольшее из них.
Пример:
Введите четыре целых числа:
1 5 4 3
Наибольшее число 5
напишите код в питоне

плата вроде как, если не ошибаюсь

двое детей поплывут вместе. один останется, другой поплывет обратно. останется поплывет мать. обратно поплывет ребенок. дети поплывут обратно. один останется другой поплывет за отцом. ребенок останется поплывет отец. затем опять пеплывет ребенок за братом и вместе они вернутся. 

var a: array [1..16] of integer;

i,s,c,d: integer;

begin

  randomize;

  read(c,d);

  for i : = 1 to 16 do begin

      a[i]: = random(d+c) - c;

      if a[i]> 0 then s: = s + a[i];

  end;

  writeln(s);

end.

var a: array[1..100] of integer;

s,i: integer ;

sr: real;

begin

  {vvod massiva a}

    for i: = 1 to 100 do

        sr: =sr+a[i];

    sr: = sr/100;

    for i: = 1 to 100 do

        if a[i]> sr then

          s: =s+1;

    writeln(s);

end.