программа ,вывести на экран таблицу Пифагора и вторая программа вывести на экран все нечетные числа от -50 до 50 через знак плюс

Первая:VarA,B:byte;BeginA:=9;B:=9;For A:=1 to A doBeginFor B:=1 to B doWrite(A,'*',B,' = ',(A*B):2,' ');WriteLnEndEnd.Вторая:Var i:integer;BeginFor i:= -50 to 50 doif i mod 2 =1 then Write('+',i)else if i mod 2 = -1 then Write(i);WriteLn('=',0)End.