从键盘任意输入两个正整数,编程求他们的而最大公约数和最小公倍数

program sd;
var i,m,n:integer;
begin
readln(m,n);
for i:=1 to m*n do begin
if (i mod m=0)and(i mod n=0) then writeln('zui xiao gong bei shu shi',i);
break;
end;
for i:=m downto 1 do begin
if (m mod i=0)and(n mod i=0)then writeln('zui da gong yin shu shi',i);
break;
end;
end.

var a,b,x:integer;
begin
write('input a:');
read(a);
write('inpur b:');
read(b);
while not (a mod x=0) and (b mod x=0) do
begin
if (a mod =0) and (b mod x=0) then write('x:',x);
readln
end
end.

(26,22)=2,[26,22]=286

pascal中如果没对变量赋值则自动认为是0。由于你没给X赋值，X自动为0， a mod x=0和b mod x=0是不成立的，因为数学上规定0不能做除数。而且a mod =0中MOD后面没有数，是无法执行的。语法肯定有错误