===== PascalABC.NET =====
begin
var F: real-> real := n -> Sqrt(n) + n;
F(ReadReal('n =')).Println
end.
1.Убрать вещи на места
Заправить кровать
Подмести пыль
Помыть пол
Протереть пыль
2.(Если на кухне.)
Помыть посуду
Протереть стол
Убрать еду на места.
Подмести пол
Помыть пол.
Машина Малина Шина Маша Молодец Лапа Молоток Риск<span>Стих</span>
Var a,b,c:integer;
begin
read(a,b,c);
if b>a then a:=b;
if c>a then writeln(c) else writeln(a);
end.