98 баллов Переаедите с паскаля на питон Program zadbl;uses

98 баллов Переаедите с паскаля на питон
Program zadbl;
uses crt;
var a,b,c,i,s:integer;
m:array[1..30] of integer;
begin
s:=-1;
for i:=1 to 30 do
begin
m[i]:=random(100);
write(m[i]:3);
end;
for i:=1 to 28 do
begin
if m[i]+m[i+1]+m[i+2]gt;s then
begin
a:=m[i];
b:=m[i+1];
c:=m[i+2];
s:=a+b+c;
end;
end;
writeln(' a b c');
write(a:3);
write(b:3);
write(c:3);
readln;
end.

Подробнее - на Znanija.com - https://znanija.com/task/9980706readmore