program max;
	var y,a,b,c: integer;
begin
	writeln ('Нахождение наибольшей из трех величин');
	write ('Введите a,b,c');
	readln (a,b,c);
	y:=a;
	if (b>y) then y:=b;
	if (c>y) then y:=c;
	writeln ('y=',y);
end.