program cycle1;
var
  t,x:real;
  k,m:integer;
begin
  writeln('x, m');
  readln(x, m);
  {k:=1; эта строчка не нужна, переменная паскалевского for'а инициализируется в самой конструкции цикла}
  t:=1;
  
  for k:=1 to m do
  begin
    t:=t*((sin(x)/cos(x)+k)/(2*k*x));
    {k:=k+1; а эта строчка не должна компилироваться, записывать в переменную цикла нельзя, инкремент компилятор
    подразумевает в конструкции цикла}
  end;

  writeln('t=',t:10:4);
  readln;
end.

program prg123; {не помню, подчиняется ли имя программы правилам именования идентификаторов, но лучше не начинать имена с цифр}
uses crt;
var
  k, x: real;
begin
  clrscr;
  k:=1;
{  x:=30; эта переменная нигде не используется}
  while k<=10 do
  begin
{тут на первый взгляд ошибки не видно. Если все-таки не работает,
единственное в чем у меня сомнение - это в форматировании строки вывода, попробуйте переписать так:
  x := -2.4*sqr(k)+5*k-3;
  writeln('T=', x:5:1);}
    writeln('T=',-2.4*sqr(k)+5*k-3:5:1);
    k:=k+0.5;
  end;
  readln;
end.