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;