Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program17

program prog17;
uses crt;
const n=99;
var i: byte;
begin
 clrscr;
  randomize;
  i:=1+random(n);
  while i mod 3 <> 0 do
   i:=1+random(n);
  writeln('i=',i);
  readln;
 end.