Исправьте программу (lazarus) program project1; var a,b,i,s2,s1,k: integer; begin writeln('a и b'); readln(a,b); if (a< > 0)and(b< > 0)then; k: =a*b; i: =k; while i> 0 do begin s1: =i mod a; s2: =i mod a; end; if s1=0 and s2=0 than; writeln(k=i); i: =i-1; end.

Program Project1;vara,b,i,s2,s1,k:integer;beginwriteln('a и b');readln(a,b);if (a<>0)and(b<>0)then;k:=a*b;i:=k;while (i>0)dobegini:=i-1;if (i mod b = 0) and (i mod a = 0) then break;end;writeln(i);end.