Вывести все числа в диапазоне от 15 до 125, являющиеся четными и кратными 3

Var  i, k: integer; begin   for i : = 15 to 125 do     if (i mod 2 = 0) and (i mod 3 = 0) then write(i, '; '); end.

//pascalabc.net 3.2 сборка 1318 const   n=3;   m=4; var    ma: array[1..m,1..n] of integer;   ar: array[1..m] of integer;   i,j: integer; begin for i: =1 to m do   begin     ar[i]: =1;     for j: =1 to n do       begin         readln(ma[i][j]);         ar[i]*=ma[i][j];       end;   end; writeln('matrix: '); for i: =1 to m do   begin     for j: =1 to n do       write(ma[i][j]: 4);     writeln;   end; writeln('res: '); for i: =1 to m do writeln(i,': ',ar[i]); end.

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); procedure getpoint(var q: point); begin   var a,b: real;   write('введите координаты точки: '); read(a,b);   q: =(a,b) end; function distance(a: point): =sqrt(sqr(a[0])+sqr(a[1])); begin   var a,b: (real,real);   getpoint(a);   getpoint(b);   var d1: =distance(a);   var d2: =distance(b);   if d1< d2 then writeln('первая точка ближе')   else       if d1> d2 then writeln('вторая точка ближе')       else writeln('точки равноудалены') end. пример введите координаты точки: 13.7 -11.25 введите координаты точки: 18 12.4 первая точка ближе