if (s1=0) or (s2=0) or (s3=0) then

     if (s1>s) or (s2>s) or (s3>s) then
        begin
        writeln('D za granicami treugolnika');
        repeat until keypressed;
        end
           else
         begin
         writeln('D na storone');
         readln;

         end