Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовате
льность завершается числом 0, при считывании которого программа должна закончить свою работу и вывести количество членов последовательности (не считая завершающего числа 0).
Числа, следующие за числом 0, считывать не нужно. решить на питоне
Var a,b,c:integer; begin readln(a,b,c); if (a<=b) and (b<=c) then begin a:=a*a; b:=b*b; c:=c*c; end else if (a>b) and (b>c) then begin if a<b then a:=b; if a<c then a:=c; b:=a; c:=a; end else begin a:=a*(-1); b:=b*(-1); c:=c*(-1) end; writeln(a:4, b:4, c:4); <span>end.</span>