NEKITVULGAR

Ты что, реально издеваешься? У тебя там опечатки, о которых говорит компилятор.

source.pas(2,16) Error: Identifier not found "intenger"

Должно быть Integer

source.pas(4,3) Error: Identifier not found "readin"

Должно быть readln

source.pas(5,8) Fatal: Syntax error, "THEN" expected but "ELSE" found

у if всегда должна быть ветка then

Результат должен быть примерно такой:

Program zl;
var a, b, max: Integer;
begin
  readln(a,b);
  if a < b then
    max := b //Да. Никакой точки с запятой тут быть не должно.
  else
    max := a;
  writeln('max=', max);
end.

Program a;
var x, y: real;
begin
  writeln('Введиите переменную x');
  read(x);
  if x < 0 then y := cos(2*x)+exp(x)
  else y := 7*x/abs(2*x-1);
  writeln('y=',y);
end.

Слишком много ошибок.

Program a;
var x,y:real;
begin
writeln ('Введите число x');
read(x);

if x < 0 then begin
  y:=cos(2*x)+exp(x)
  writeln('y=',y)
  end
else begin
  y:=7x/abs(2x-1);
  writeln(‘y=‘,y);
end;

end.

Вроде так)