function prost (x : integer) : boolean;
  var
    i : integer;
    r : boolean;
  begin
   i := 2;
   r := true;
   While (i <= x div 2) and (r) do
    begin
     if x mod i = 0 then
      r := false;
     i := i +1;
    end;
   Result := r;
  end;