var a:array[1..5] of longint;
i,max:longint;
begin
for i:=1 to 5 do
read(a[i]);
for i:=1 to 5 do
if a[i]>max then max:=a[i];
write(max);
end.
/**************************************************************
	Problem: 1736
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/