Перевести код з Паскаля в Питон
var i,n:integer; f:boolean;a1,a2:real;
begin
f:=true;
read(n);read(a1);
for i:=2 to n do
begin
read(a2);
if a2<=a1 then f:=false;
a1:=a2;
end;
if f then writeln('yes')else writeln('no');
end.

Lyrryface    1   22.04.2020 18:29    2