Встречено "Writeln" а ожидалось ";"
program b;
var x,y:real;
begin
writeln('Введите первое число');
readln(x);
Writeln('Введите второе число');
readln(y);
if (x>10) and (y>10) then x:=x*y
writeln('Произведение числа=', x)
else y:=x+y
writeln('Cумма чисел=', y)
end.

program b;

var x,y:real;

begin

writeln('Введите первое число');

readln(x);

Writeln('Введите второе число');

readln(y);

if (x>10) and (y>10) then  

 begin  

 x:=x*y;

 writeln('Произведение числа=', x);

 end

                    else

 begin  

 y:=x+y;

 writeln('Cумма чисел=', y);

 end;

end.