Найдите ошибку в программе! program i1; var a, b: integer; begin a: =10; b: =1; begin while a< =50 do begin if (a mod 9 = 0) or (a mod 7 = 0) then begin b: =b*a; write (b); end; a: =a+1; write (b); end. что значит "встречено ., а ожидалось ; в 16 строке"?

Ошибка означает несоответствие begin и end. Исправить можно, например, так:
program i1;
var a, b: integer;
begin
a:=10;
b:=1;
while a<=50 do
begin
 if (a mod 9 = 0) or (a mod 7 = 0) then
 begin
 b:=b*a;
 write (b);
 end;
 a:=a+1;
end;
write (b);
End.