program povt;
uses crt;
var a,s:integer;
begin
clrscr;
for a:=55 to 95 do write (a,',');
for a:=10 to 20 do write (a,'*',a,'=' ,a*a,' ,');
for a:=10 to 30 do write (a,'*',a,'*',a,'=',a*a*a,',');
for a:=12 to 99 do if( a  mod 4=0) and ( a mod 6=0) then
 begin write  (a,','); s:=s+a;  end;   writeln ('s=',s);
readkey;
end.