if (s1>=4) and (s1<=30) and (s2>=4) and (s2<=30) then
    begin
      k:=s1*s2;                       	//кількість клітинок на полі
      Edit4.text:=IntToStr(k);
      Edit4.visible:=true;
      Label4.visible:=true;
      m:=k div 10;       		//кількість мін
      Edit3.text:=IntToStr(m);
      Edit3.visible:=true;
      Label3.visible:=true;
    end;