function simple(x:integer):boolean;     {процедура проверки числа на "простоту"}
label 1;
  var i:longint;
      result: boolean;
begin
if (x=1) or (x=0) then begin result:=false; goto 1;  end;
  for i:=2 to x div 2 do
    if x mod i=0 then begin
       result:=false; goto 1; end;
    result:=true;
 
 
1:simple:=result;
end;  {***конец процедуры проверки числа на "простоту"}