Составьте программу в паскале, которая выводит на экран числа кратные 6 и 11 в диапазоне от 6 до 200. В программе должны присутствовать операторы repeat и until. Заранее спасибо.

program summa; uses crt; var. I:integer; begin summ:=0; for I:=2 to 150 do begin if ((I mod 2 = 0) and (I mod 13 = 0)) then writeln (I) end;